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Abstract 


This document specifies a speech codec suitable for robust voice 
communication over IP. The codec is developed by Global IP Sound 
(GIPS). It is designed for narrow band speech and results in a 
payload bit rate of 13.33 kbit/s for 30 ms frames and 15.20 kbit/s 
for 20 ms frames. The codec enables graceful speech quality 
degradation in the case of lost frames, which occurs in connection 
with lost or delayed IP packets. 
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1. Introduction 


This document contains the description of an algorithm for the coding 
of speech signals sampled at 8 kHz. The algorithm, called iLBC, uses 
a block-independent linear-predictive coding (LPC) algorithm and has 
support for two basic frame lengths: 20 ms at 15.2 kbit/s and 30 ms 
at 13.33 kbit/s. When the codec operates at block lengths of 20 ms, 
it produces 304 bits per block, which SHOULD be packetized as in [1]. 
Similarly, for block lengths of 30 ms it produces 400 bits per block, 
which SHOULD be packetized as in [1]. The two modes for the 
different frame sizes operate in a very similar way. When they 
differ it is explicitly stated in the text, usually with the notation 
x/y, where x refers to the 20 ms mode and y refers to the 30 ms mode. 


The described algorithm results in a speech coding system with a 
controlled response to packet losses similar to what is known from 
pulse code modulation (PCM) with packet loss concealment (PLC), such 
as the ITU-T G.711 standard [4], which operates at a fixed bit rate 
of 64 kbit/s. At the same time, the described algorithm enables 
fixed bit rate coding with a guality-versus-bit rate tradeoff close 
to state-of-the-art. A suitable RTP payload format for the iLBC 
codec is specified in [1]. 


Some of the applications for which this coder is suitable are real 
time communications such as telephony and videoconferencing, 
streaming audio, archival, and messaging. 
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Cable Television Laboratories (CableLabs(R)) has adopted iLBC as a 
mandatory PacketCable(TM) audio codec standard for VoIP over Cable 
applications [3]. 


This document is organized as follows. Section 2 gives a brief 
outline of the codec. The specific encoder and decoder algorithms 
are explained in sections 3 and 4, respectively. Appendix A provides 
a c-code reference implementation. 


The key words "MUST", "MUST NOT", "REQUIRED", "SHALL", "SHALL NOT", 
"SHOULD", "SHOULD NOT", "RECOMMENDED", "MAY", and "OPTIONAL" in this 
document are to be interpreted as described in BCP 14, RFC 2119 [2]. 


2. Outline of the Codec 


The codec consists of an encoder and a decoder as described in 
sections 2.1 and 2.2, respectively. 


The essence of the codec is LPC and block-based coding of the LPC 
residual signal. For each 160/240 (20 ms/30 ms) sample block, the 
following major steps are performed: A set of LPC filters are 
computed, and the speech signal is filtered through them to produce 
the residual signal. The codec uses scalar quantization of the 
dominant part, in terms of energy, of the residual signal for the 
block. The dominant state is of length 57/58 (20 ms/30 ms) samples 
and forms a start state for dynamic codebooks constructed from the 
already coded parts of the residual signal. These dynamic codebooks 
are used to code the remaining parts of the residual signal. By this 
method, coding independence between blocks is achieved, resulting in 
elimination of propagation of perceptual degradations due to packet 
loss. The method facilitates high-quality packet loss concealment 
(PLC). 


2.1. Encoder 


The input to the encoder SHOULD be 16 bit uniform PCM sampled at 8 
kHz. It SHOULD be partitioned into blocks of BLOCKL-160/240 samples 
for the 20/30 ms frame size. Each block is divided into NSUB-4/6 
consecutive sub-blocks of SUBL-40 samples each. For 30 ms frame 
Size, the encoder performs two LPC FILTERORDER-10 linear-predictive 
coding (LPC) analyses. The first analysis applies a smooth window 
centered over the second sub-block and extending to the middle of the 
fifth sub-block. The second LPC analysis applies a smooth asymmetric 
window centered over the fifth sub-block and extending to the end of 
the sixth sub-block. For 20 ms frame size, one LPC FILTERORDER-10 
linear-predictive coding (LPC) analysis is performed with a smooth 
window centered over the third sub-frame. 
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For each of the LPC analyses, a set of line-spectral freguencies 
(LSFs) are obtained, quantized, and interpolated to obtain LSF 


coefficients for each sub-block. Subsequently, the LPC residual is 
computed by using the quantized and interpolated LPC analysis 
filters. 


The two consecutive sub-blocks of the residual exhibiting the maximal 
weighted energy are identified. Within these two sub-blocks, the 
start state (segment) is selected from two choices: the first 57/58 
samples or the last 57/58 samples of the two consecutive sub-blocks. 
The selected segment is the one of higher energy. The start state is 
encoded with scalar guantization. 


A dynamic codebook encoding procedure is used to encode 1) the 23/22 
(20 ms/30 ms) remaining samples in the two sub-blocks containing the 
start state; 2) the sub-blocks after the start state in time; and 3) 
the sub-blocks before the start state in time. Thus, the encoding 
target can be either the 23/22 samples remaining of the two sub- 
blocks containing the start state or a 40-sample sub-block. This 
target can consist of samples indexed forward in time or backward in 
time, depending on the location of the start state. 


The codebook coding is based on an adaptive codebook built from a 
codebook memory that contains decoded LPC excitation samples from the 
already encoded part of the block. These samples are indexed in the 
same time direction as the target vector, ending at the sample 
instant prior to the first sample instant represented in the target 
vector. The codebook is used in CB NSTAGES-3 stages in a successive 
refinement approach, and the resulting three code vector gains are 
encoded with 5-, 4-, and 3-bit scalar quantization, respectively. 


The codebook search method employs noise shaping derived from the LPC 
filters, and the main decision criterion is to minimize the squared 
error between the target vector and the code vectors. Each code 
vector in this codebook comes from one of CB EXPAND-2 codebook 
sections. The first section is filled with delayed, already encoded 
residual vectors. The code vectors of the second codebook section 
are constructed by predefined linear combinations of vectors in the 
first section of the codebook. 


As codebook encoding with squared-error matching is known to produce 
a coded signal of less power than does the scalar quantized start 
state signal, a gain re-scaling method is implemented by a refined 
search for a better set of codebook gains in terms of power matching 
after encoding. This is done by searching for a higher value of the 
gain factor for the first stage codebook, as the subsequent stage 
codebook gains are scaled by the first stage gain. 
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2.2. Decoder 


Typically for packet communications, a jitter buffer placed at the 
receiving end decides whether the packet containing an encoded signal 
block has been received or lost. This logic is not part of the codec 
described here. For each encoded signal block received the decoder 
performs a decoding. For each lost signal block, the decoder 
performs a PLC operation. 


The decoding for each block starts by decoding and interpolating the 
LPC coefficients. Subsequently the start state is decoded. 


For codebook-encoded segments, each segment is decoded by 
constructing the three code vectors given by the received codebook 
indices in the same way that the code vectors were constructed in the 
encoder. The three gain factors are also decoded and the resulting 
decoded signal is given by the sum of the three codebook vectors 
Scaled with respective gain. 


An enhancement algorithm is applied to the reconstructed excitation 
Signal. This enhancement augments the periodicity of voiced speech 
regions. The enhancement is optimized under the constraint that the 
modification signal (defined as the difference between the enhanced 
excitation and the excitation signal prior to enhancement) has a 
short-time energy that does not exceed a preset fraction of the 
short-time energy of the excitation signal prior to enhancement. 


A packet loss concealment (PLC) operation is easily embedded in the 
decoder. The PLC operation can, e.g., be based on repeating LPC 
filters and obtaining the LPC residual signal by using a long-term 
prediction estimate from previous residual blocks. 


3. Encoder Principles 


The following block diagram is an overview of all the components of 


the iLBC encoding procedure. The description of the blocks contains 
references to the section where that particular procedure is further 
described. 
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4----------- * 4--------- * 4--------- * 
speech -> | 1. Pre P | -> | 2. LPC | -> | 3. Ana -> 

4----------- * 4--------- * 4--------- * 
4--------------- + o4-------------- + 

-> | 4. Start Sel | ->| 5. Scalar Qu | -> 
4--------------- + o4-------------- + 
4-------------- * 4--------------- * 

-» |6. CB Search | -» | 7. Packetize | -» payload 

| +-------------- + | #--------------- + 

————« ——— S né < HA ETES 


sub-frame 0..2/4 (20 ms/30 ms) 


Figure 3.1. Flow chart of the iLBC encoder 


1. Pre-process speech with a HP filter, if needed (section 3.1). 

2. Compute LPC parameters, quantize, and interpolate (section 3.2). 

3. Use analysis filters on speech to compute residual (section 3.3). 

4. Select position of 57/58-sample start state (section 3.5). 

5. Ouantize the 57/58-sample start state with scalar guantization 
(section 3.5). 

6. Search the codebook for each sub-frame. Start with 23/22 sample 
block, then encode sub-blocks forward in time, and then encode 
sub-blocks backward in time. For each block, the steps in Figure 
3.4 are performed (section 3.6). 

7. Packetize the bits into the payload specified in Table 3.2. 


The input to the encoder SHOULD be 16-bit uniform PCM sampled at 8 


kHz. 
samples. 
consecutive sub-blocks of SUBL=40 samples each. 
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0 39 79 119 159 
4+--------------------------------------- + 
| 1 | 2 | 3 | 4 | 
4+--------------------------------------- + 


0 39 79 119 159 199 239 
4+----------------------------------------------------------- + 
Loi (2 | 3 |] «& | MN MD | 
4----------------------------------------------------------- + 


30 ms frame 
Figure 3.2. One input block to the encoder for 20 ms (with four sub- 
frames) and 30 ms (with six sub-frames). 


3.1. Pre-processing 


In some applications, the recorded speech signal contains DC level 
and/or 50/60 Hz noise. If these components have not been removed 
prior to the encoder call, they should be removed by a high-pass 
filter. A reference implementation of this, using a filter with a 
cutoff frequency of 90 Hz, can be found in Appendix A.28. 


3.2. LPC Analysis and Quantization 


The input to the LPC analysis module is a possibly high-pass filtered 
speech buffer, speech_hp, that contains 240/300 (LPC_LOOKBACK + 
BLOCKL = 80/60 + 160/240 = 240/300) speech samples, where samples 0 
through 79/59 are from the previous block and samples 80/60 through 
239/299 are from the current block. No look-ahead into the next 
block is used. For the very first block processed, the look-back 
samples are assumed to be zeros. 


For each input block, the LPC analysis calculates one/two set(s) of 
LPC_FILTERORDER=10 LPC filter coefficients using the autocorrelation 
method and the Levinson-Durbin recursion. These coefficients are 
converted to the Line Spectrum Frequency representation. In the 20 
ms case, the single lsf set represents the spectral characteristics 
as measured at the center of the third sub-block. For 30 ms frames, 
the first set, lsfl, represents the spectral properties of the input 
Signal at the center of the second sub-block, and the other set, 
lsf2, represents the spectral characteristics as measured at the 
center of the fifth sub-block. The details of the computation for 30 
ms frames are described in sections 3.2.1 through 3.2.6. Section 
3.2.7 explains how the LPC Analysis and Quantization differs for 20 
ms frames. 
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3.2.1. Computation of Autocorrelation Coefficients 


The first step in the LPC analysis procedure is to calculate 
autocorrelation coefficients by using windowed speech samples. This 
windowing is the only difference in the LPC analysis procedure for 
the two sets of coefficients. For the first set, a 240-sample-long 
standard symmetric Hanning window is applied to samples 0 through 239 
of the input data. The first window, lpc winTbl, is defined as 


lpc winTbl[i]= 0.5 * (1.0 - cos((2*PI* (i*1))/ (BLOCKL+1))); 
i=0,...,119 
lpc winTbl[i] = winTbl[BLOCKL - i - 1]; i-120,...,239 


The windowed speech speech hp winl is then obtained by multiplying 
the first 240 samples of the input speech buffer with the window 
coefficients: 


Speech hp winl[i] = speech hp[i] * lpc winTbl[il; 
i=0,...,BLOCKL-1 


From these 240 windowed speech samples, 11 (LPC FILTERORDER + 1) 
autocorrelation coefficients, acfl, are calculated: 


acfl[lag] += speech hp winl[n] * speech hp winl[n + lag]; 
lag=0,...,LPC FILTERORDER; n=0,...,BLOCKL-lag-1 


In order to make the analysis more robust against numerical precision 
problems, a spectral smoothing procedure is applied by windowing the 
autocorrelation coefficients before the LPC coefficients are 
computed. Also, a white noise floor is added to the autocorrelation 
function by multiplying coefficient zero by 1.0001 (40dB below the 
energy of the windowed speech signal). These two steps are 
implemented by multiplying the autocorrelation coefficients with the 
following window: 


lpc lagwinTbl [0] 1.0001; 

lpc lagwinTbl[i] = exp(-0.5 * ((2 * PI * 60.0 * i) /FS)^2); 
i=1,.../LPC FILTERORDER 
where FS=8000 is the sampling frequency 


Then, the windowed acf function acfl win is obtained by 


acfl win[i] = acfl[i] * lpc lagwinTbl[il; 
i=0,..., LPC FILTERORDER 


The second set of autocorrelation coefficients, acf2 win, are 
obtained in a similar manner. The window, lpc asymwinTbl, is applied 
to samples 60 through 299, i.e., the entire current block. The 
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window consists of two segments, the first (samples 0 to 219) being 
half a Hanning window with length 440 and the second a guarter of a 
cycle of a cosine wave. By using this asymmetric window, an LPC 
analysis centered in the fifth sub-block is obtained without the need 
for any look-ahead, which would add delay. The asymmetric window is 
defined as 


lpc asymwinTbl[i] = (sin(PI * (i + 1) / 441))^2; i=0,...,219 


lpc asymwinTbl [i] cos( (i - 220) * PI / 40); i=220,...,239 


and the windowed speech is computed by 


Speech hp win2[i] = speech hp[i + LPC LOOKBACK] * 
lpc asymwinTbl[il; i=0,....BLOCKL-1 


The windowed autocorrelation coefficients are then obtained in 
exactly the same way as for the first analysis instance. 


The generation of the windows lpc winTbl, lpc asymwinTbl, and 
lpc lagwinTbl are typically done in advance, and the arrays are 
Stored in ROM rather than repeating the calculation for every block. 


3.2.2. Computation of LPC Coefficients 


From the 2 x 11 smoothed autocorrelation coefficients, acfl_win and 
acf2 win, the 2 x 11 LPC coefficients, lpl and 1p2, are calculated 
in the same way for both analysis locations by using the well known 
Levinson-Durbin recursion. The first LPC coefficient is always 1.0, 
resulting in ten unique coefficients. 


After determining the LPC coefficients, a bandwidth expansion 
procedure is applied to smooth the spectral peaks in the 
short-term spectrum. The bandwidth addition is obtained by the 
following modification of the LPC coefficients: 


lpl bw[i] = lpl[i] * chirp^i; i=0,...,LPC_FILTERORDER 
lp2 bw[i] lp2[i] * chirp^i; i=0,...,LPC FILTERORDER 


where "chirp" is a real number between 0 and 1. It is RECOMMENDED to 
use a value of 0.9. 


3.2.3. Computation of LSF Coefficients from LPC Coefficients 


Thus far, two sets of LPC coefficients that represent the short-term 
Spectral characteristics of the speech signal for two different time 
locations within the current block have been determined. These 
coefficients SHOULD be quantized and interpolated. Before this is 
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done, it is advantageous to convert the LPC parameters into another 
type of representation called Line Spectral Freguencies (LSF). The 
LSF parameters are used because they are better suited for 
quantization and interpolation than the regular LPC coefficients. 
Many computationally efficient methods for calculating the LSFs from 
the LPC coefficients have been proposed in the literature. The 
detailed implementation of one applicable method can be found in 
Appendix A.26. The two arrays of LSF coefficients obtained, 1lsfl and 
1sf2, are of dimension 10 (LPC FILTERORDER). 


3.2.4. Quantization of LSF Coefficients 


Because the LPC filters defined by the two sets of LSFs are also 
needed in the decoder, the LSF parameters need to be quantized and 
transmitted as side information. The total number of bits required 
to represent the quantization of the two LSF representations for one 
block of speech is 40, with 20 bits used for each of lsfl and 1sf2. 


For computational and storage reasons, the LSF vectors are quantized 
using three-split vector quantization (VQ). That is, the LSF vectors 
are split into three sub-vectors that are each quantized with a 
regular VO. The quantized versions of lsfl and 1sf2, qlsfl and 
qlsf2, are obtained by using the same memoryless split VO. The 
length of each of these two LSF vectors is 10, and they are split 
into three sub-vectors containing 3, 3, and 4 values, respectively. 


For each of the sub-vectors, a separate codebook of quantized values 
has been designed with a standard VQ training method for a large 
database containing speech from a large number of speakers recorded 
under various conditions. The size of each of the three codebooks 
associated with the split definitions above is 


int size lsfCbTbl[LSF NSPLIT] = (64,128,128); 


The actual values of the vector quantization codebook that must be 
used can be found in the reference code of Appendix A. Both sets of 
LSF coefficients, lsfl and lsf2, are quantized with a standard 
memoryless split vector quantization (VQ) structure using the squared 
error criterion in the LSF domain. The split VO quantization 
consists of the following steps: 


1) Quantize the first three LSF coefficients (1 - 3) with a VO 
codebook of size 64. 

2) Quantize the next three LSF coefficients 4 - 6 with VQ a codebook 
of size 128. 

3) Quantize the last four LSF coefficients (7 - 10) with a VO 
codebook of size 128. 
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This procedure, repeated for lsfl and lsf2, gives six quantization 
indices and the quantized sets of LSF coefficients qlsfl and qlsf2. 
Each set of three indices is encoded with 6 + 7 + 7 = 20 bits. The 
total number of bits used for LSF quantization in a block is thus 40 
bits. 


3.2.5. Stability Check of LSF Coefficients 


The LSF representation of the LPC filter has the convenient property 
that the coefficients are ordered by increasing value, i.e., lsf(n-1) 
< lsf(n), 0 < n < 10, if the corresponding synthesis filter is 
stable. As we are employing a split VQ scheme, it is possible that 
at the split boundaries the LSF coefficients are not ordered 
correctly and hence that the corresponding LP filter is unstable. To 
ensure that the filter used is stable, a stability check is performed 
for the quantized LSF vectors. If it turns out that the coefficients 
are not ordered appropriately (with a safety margin of 50 Hz to 
ensure that formant peaks are not too narrow), they will be moved 
apart. The detailed method for this can be found in Appendix A.40. 
The same procedure is performed in the decoder. This ensures that 
exactly the same LSF representations are used in both encoder and 
decoder. 


3.2.6. Interpolation of LSF Coefficients 


From the two sets of LSF coefficients that are computed for each 
block of speech, different LSFs are obtained for each sub-block by 
means of interpolation. This procedure is performed for the original 
LSFs (lsfl and 1lsf2), as well as the quantized versions glsfl and 
qlsf2, as both versions are used in the encoder. Here follows a 
brief summary of the interpolation scheme; the details are found in 
the c-code of Appendix A. In the first sub-block, the average of the 
second LSF vector from the previous block and the first LSF vector in 
the current block is used. For sub-blocks two through five, the LSFs 
used are obtained by linear interpolation from lsfl (and qlsf1) to 
lsf2 (and qlsf2), with lsfl used in sub-block two and 1sf2 in sub- 
block five. In the last sub-block, lsf2 is used. For the very first 
block it is assumed that the last LSF vector of the previous block is 
equal to a predefined vector, lsfmeanTbl, obtained by calculating the 
mean LSF vector of the LSF design database. 


lsfmeanTbl[LPC FILTERORDER] = (0.281738, 0.445801, 0.663330, 
0.962524, 1.251831, 1.533081, 1.850586, 2.137817, 
2.481445, 2.777344} 
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The interpolation method is standard linear interpolation in the LSF 
domain. The interpolated LSF values are converted to LPC 
coefficients for each sub-block. The unquantized and quantized LPC 
coefficients form two sets of filters respectively. The unquantized 
analysis filter for sub-block k is defined as follows 


\ 
Ak(z)= 1 + > ak(i)*z^(-i) 
/ 


i=1...LPC FILTERORDER 


The quantized analysis filter for sub-block k is defined as follows 
\ 
A”k(z)= 1 + > a^k(i)*z^(-i) 
= 
i-1...LPC FILTERORDER 


A reference implementation of the lsf encoding is given in Appendix 
A.38. A reference implementation of the corresponding decoding can 
be found in Appendix A.36. 


3.2.7. LPC Analysis and Quantization for 20 ms Frames 


As previously stated, the codec only calculates one set of LPC 
parameters for the 20 ms frame size as opposed to two sets for 30 ms 
frames. A single set of autocorrelation coefficients is calculated 
on the LPC LOOKBACK + BLOCKL = 80 + 160 = 240 samples. These samples 
are windowed with the asymmetric window lpc asymwinTbl, centered over 
the third sub-frame, to form speech hp win. Autocorrelation 
coefficients, acf, are calculated on the 240 samples in speech hp win 
and then windowed exactly as in section 3.2.1 (resulting in 

acf win). 


This single set of windowed autocorrelation coefficients is used to 
calculate LPC coefficients, LSF coefficients, and quantized LSF 
coefficients in exactly the same manner as in sections 3.2.3 through 
3.2.4. As for the 30 ms frame size, the ten LSF coefficients are 
divided into three sub-vectors of size 3, 3, and 4 and quantized by 
using the same scheme and codebook as in section 3.2.4 to finally get 
3 guantization indices. The guantized LSF coefficients are 
stabilized with the algorithm described in section 3.2.5. 


From the set of LSF coefficients computed for this block and those 
from the previous block, different LSFs are obtained for each sub- 
block by means of interpolation. The interpolation is done linearly 
in the LSF domain over the four sub-blocks, so that the n-th sub- 
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frame uses the weight (4-n)/4 for the LSF from old frame and the 
weight n/4 of the LSF from the current frame. For the very first 
block the mean LSF, lsfmeanTbl, is used as the LSF from the previous 
block. Similarly as seen in section 3.2.6, both unquantized, A(z), 
and quantized, A” (z), analysis filters are calculated for each of the 
four sub-blocks. 


3.3. Calculation of the Residual 


The block of speech samples is filtered by the quantized and 
interpolated LPC analysis filters to yield the residual signal. In 
particular, the corresponding LPC analysis filter for each 40 sample 
sub-block is used to filter the speech samples for the same sub- 
block. The filter memory at the end of each sub-block is carried 
over to the LPC filter of the next sub-block. The signal at the 
output of each LP analysis filter constitutes the residual signal for 
the corresponding sub-block. 


A reference implementation of the LPC analysis filters is given in 
Appendix A.10. 


3.4. Perceptual Weighting Filter 


In principle any good design of a perceptual weighting filter can be 
applied in the encoder without compromising this codec definition. 
However, it is RECOMMENDED to use the perceptual weighting filter Wk 
for sub-block k specified below: 


Wk (z) =1/Ak (z/LPC_CHIRP_WEIGHTDENUM), where 
LPC_CHIRP_WEIGHTDENUM = 0.4222 


This is a simple design with low complexity that is applied in the 
LPC residual domain. Here Ak(z) is the filter obtained for sub-block 
k from unquantized but interpolated LSF coefficients. 


3.5. Start State Encoder 


The start state is quantized by using a common 6-bit scalar quantizer 
for the block and a 3-bit scalar quantizer operating on scaled 
samples in the weighted speech domain. In the following we describe 
the state encoding in greater detail. 
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.1. Start State Estimation 


The two sub-blocks containing the start state are determined by 
finding the two consecutive sub-blocks in the block having the 
highest power.  Advantageously, down-weighting is used in the 
beginning and end of the sub-frames, i.e., the following measure is 
computed (NSUB-4/6 for 20/30 ms frame size): 


nsub=1,...,NSUB-1 

ssqn[nsub] = 0.0; 

for (i=(nsub-1) *SUBL; i<(nsub-l)*SUBL+5; i++) 
ssqn[nsub] += sampEn win[i- (nsub-1)*SUBL]* 

residual[i]*residual[il; 

for (i=(nsub-l)*SUBL+5; i<(nsub+1)*SUBL-5; i++) 
ssqn[nsub] += residual[il*residual[i]; 

for (i=(nsub+1)*SUBL-5; i<(nsub+1)*SUBL; i++) 
ssqn[nsub] += sampEn_win[ (nsub+1) *SUBL-i-1]* 

residual[i]*residual[il; 


where sampEn_win[5]=11/6, 2/6, 3/6, 4/6, 5/6); MAY be used. The 
sub-frame number corresponding to the maximum value of 

ssqEn win[nsub-1]*ssqn[nsub] is selected as the start state 
indicator. A weighting of ssqEn_win[]={0.8,0.9,1.0,0.9,0.8} for 30 
ms frames and ssqEn_win[]={0.9,1.0,0.9} for 20 ms frames; MAY 
advantageously be used to bias the start state towards the middle of 
the frame. 


For 20 ms frames there are three possible positions for the two-sub- 
block length maximum power segment; the start state position is 
encoded with 2 bits. The start state position, start, MUST be 
encoded as 


start=1: start state in sub-frame 0 and 1 
start=2: start state in sub-frame 1 and 2 
start=3: start state in sub-frame 2 and 3 


For 30 ms frames there are five possible positions of the two-sub- 
block length maximum power segment, the start state position is 
encoded with 3 bits. The start state position, start, MUST be 
encoded as 


start=1: start state in sub-frame 0 and 1 
start=2: start state in sub-frame 1 and 2 
start=3: start state in sub-frame 2 and 3 
start=4: start state in sub-frame 3 and 4 
start=5: start state in sub-frame 4 and 5 
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Hence, in both cases, index 0 is not used. In order to shorten the 
start state for bit rate efficiency, the start state is brought down 
to STATE SHORT LEN=57 samples for 20 ms frames and STATE SHORT LEN=58 
samples for 30 ms frames. The power of the first 23/22 and last 
23/22 samples of the two sub-frame blocks identified above is 
computed as the sum of the sguared signal sample values, and the 
23/22-sample segment with the lowest power is excluded from the start 
state. One bit is transmitted to indicate which of the two possible 
57/58 sample segments is used. The start state position within the 
two sub-frames determined above, state first, MUST be encoded as 


state first-1: start state is first STATE SHORT LEN samples 
state first=0: start state is last STATE SHORT LEN samples 


3.5.2. All-Pass Filtering and Scale Ouantization 


The block of residual samples in the start state is first filtered by 
an all-pass filter with the quantized LPC coefficients as denominator 
and reversed guantized LPC coefficients as numerator. The purpose of 
this phase-dispersion filter is to get a more even distribution of 


the sample values in the residual signal. The filtering is performed 
by circular convolution, where the initial filter memory is set to 
zero. 
res(0.. (STATE SHORT LEN-1)) = uncoded start state residual 
res((STATE SHORT LEN)..(2*STATE SHORT LEN-1)) = 0 
Pk(z) = A^rk(z)/A^k(z), where 
\ 
A”rk(z)= z“ (-LPC FILTERORDER) +>a k (i+1)*z“ (i- (LPC FILTERORDER-1)) 
= 
i=0... (LPC FILTERORDER-1) 


and A^k(z) is taken from the block where the start state begins 
res -> Pk(z) -> filtered 


ccres(k) = filtered(k) + filtered(k+STATE SHORT LEN), 
k=0.. (STATE SHORT LEN-1) 


The all-pass filtered block is searched for its largest magnitude 
sample. The 10-logarithm of this magnitude is quantized with a 6-bit 
quantizer, state frgqTbl, by finding the nearest representation. 
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This results in an index, idxForMax, corresponding to a quantized 
value, gmax. The all-pass filtered residual samples in the block are 
then multiplied with a scaling factor scal=4.5/(10"qmax) to yield 
normalized samples. 


state frgqTbl[64] = (1.000085, 1.071695, 1.140395, 1.206868, 
1.277188, 1.351503, 1.429380, 1.500727, 1.569049, 


1.639599, 1.707071, 1.781531, 1.840799, 1.901550, 
1.956695, 2.006750, 2.055474, 2.102787, 2.142819, 
2.183592, 2.217962, 2.257177, 2.295739, 2.332967, 
2.369248, 2.402792, 2.435080, 2.468598, 2.503394, 
2.539284, 2.572944, 2.605036, 2.636331, 2.668939, 
2.698780, 2.729101, 2.759786, 2.789834, 2.818679, 
2.848074, 2.877470, 2.906899, 2.936655, 2.967804, 
3.000115, 3.033367, 3.066355, 3.104231, 3.141499, 
3.183012, 3.222952, 3.265433, 3.308441, 3.350823, 
3.395275, 3.442793, 3.490801, 3.542514, 3.604064, 
3.666050, 3.740994, 3.830749, 3.938770, 4.101764} 
3.5.3. Scalar Quantization 


The normalized samples are quantized in the perceptually weighted 
Speech domain by a sample-by-sample scalar DPCM quantization as 
depicted in Figure 3.3. Each sample in the block is filtered by a 
weighting filter Wk(z), specified in section 3.4, to form a weighted 
Speech sample x[n]. The target sample d[n] is formed by subtracting 
a predicted sample y[n], where the prediction filter is given by 


Pk(z) = 1 - 1 / Wk(z). 
q———5-t + x[n] + Qin]. a + u[n] 
residual --»| Wk(z) |-------- >(+)---->| Quantizer |------ » quantized 
Fesses + - /\\ pesee-z—xesr * | residual 
| V 
VAT 4222353222223 = 22975 a) 
| e 0 | 
+ | Pk(z) | «------ + 
+------ + 


Figure 3.3. Quantization of start state samples by DPCM in weighted 
speech domain. 


The coded state sample u[n] is obtained by quantizing d[n] with a 3- 
bit quantizer with quantization table state_sq3Tbl. 


state_sq3Tb1[8] = {-3.719849, -2.177490, -1.130005, -0.309692, 
0.444214, 1.329712, 2.436279, 3.983887} 
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The guantized samples are transformed back to the residual domain by 
1) scaling with 1/scal; 2) time-reversing the scaled samples; 3) 
filtering the time-reversed samples by the same all-pass filter, as 
in section 3.5.2, by using circular convolution; and 4) time- 
reversing the filtered samples. (More detail is in section 4.2.) 


A reference implementation of the start-state encoding can be found 
in Appendix A.46. 


3.6. Encoding the Remaining Samples 


A dynamic codebook is used to encode 1) the 23/22 remaining samples 
in the two sub-blocks containing the start state; 2) the sub-blocks 
after the start state in time; and 3) the sub-blocks before the start 
state in time. Thus, the encoding target can be either the 23/22 
samples remaining of the 2 sub-blocks containing the start state, or 
a 40-sample sub-block. This target can consist of samples that are 
indexed forward in time or backward in time, depending on the 
location of the start state. The length of the target is denoted by 
lTarget. 


The coding is based on an adaptive codebook that is built from a 
codebook memory that contains decoded LPC excitation samples from the 
already encoded part of the block. These samples are indexed in the 
same time direction as is the target vector and end at the sample 
instant prior to the first sample instant represented in the target 
vector. The codebook memory has length lMem, which is equal to 

CB MEML-147 for the two/four 40-sample sub-blocks and 85 for the 
23/22-sample sub-block. 


The following figure shows an overview of the encoding procedure. 


+============ + E E + +============= + 
-> 1. Decode | -> | 2. Mem setup | -> | 3. Perc. W. | -> 
+============ + +=============== + +============= + 
+============ + +================= + 
-> | 4. Search | -> | 5. Upd. Target | ------------------ > 
| 4------------ + 4------------------ | 
-—---«------------- «----------- «---------- 
stage=0..2 
4---------------- t 
-> | 6. Recalc G[0] | --------------- » gains and CB indices 
4---------------- t 
Figure 3.4. Flow chart of the codebook search in the iLBC encoder. 
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Decode the part of the residual that has been encoded so far, 
using the codebook without perceptual weighting. 


Set up the memory by taking data from the decoded residual. This 
memory is used to construct codebooks. For blocks preceding the 
start state, both the decoded residual and the target are time 
reversed (section 3.6.1). 

Filter the memory + target with the perceptual weighting filter 
(section 3.6.2). 


Search for the best match between the target and the codebook 
vector. Compute the optimal gain for this match and quantize that 
gain (section 3.6.4). 


Update the perceptually weighted target by subtracting the 
contribution from the selected codebook vector from the 
perceptually weighted memory (guantized gain times selected 
vector). Repeat 4 and 5 for the two additional stages. 


Calculate the energy loss due to encoding of the residual. If 
needed, compensate for this loss by an upscaling and 
reguantization of the gain for the first stage (section 3.7). 


following sections provide an in-depth description of the 
ferent blocks of Figure 3.4. 


Codebook Memory 


codebook memory is based on the already encoded sub-blocks, so 
available data for encoding increases for each new sub-block that 
been encoded. Until enough sub-blocks have been encoded to fill 
codebook memory with data, it is padded with zeros. The 

lowing figure shows an example of the order in which the sub- 

cks are encoded for the 30 ms frame size if the start state is 


ated in the last 58 samples of sub-block 2 and 3. 
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ure 3.5. The order from 1 to 5 in which the sub-blocks are 


oded. The slashed area is the start state. 
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The first target sub-block to be encoded is number 1, and the 
corresponding codebook memory is shown in the following figure. As 
the target vector comes before the start state in time, the codebook 
memory and target vector are time reversed; thus, after the block has 
been time reversed the search algorithm can be reused. As only the 
start state has been encoded so far, the last samples of the codebook 
memory are padded with zeros. 


Figure 3.6. The codebook memory, length lMem-85 samples, and the 
target vector 1, length 22 samples. 


The next step is to encode sub-block 2 by using the memory that now 
has increased since sub-block 1 has been encoded. The following 
figure shows the codebook memory for encoding of sub-block 2. 


Figure 3.7. The codebook memory, length lMem-147 samples, and the 
target vector 2, length 40 samples. 


The next step is to encode sub-block 3 by using the memory which has 
been increased yet again since sub-blocks 1 and 2 have been encoded, 
but the sub-block still has to be padded with a few zeros. The 

following figure shows the codebook memory for encoding of sub-block 


Figure 3.8. The codebook memory, length lMem-147 samples, and the 
target vector 3, length 40 samples. 


The next step is to encode sub-block 4 by using the memory which now 
has increased yet again since sub-blocks 1, 2, and 3 have been 
encoded. This time, the memory does not have to be padded with 
zeros. The following figure shows the codebook memory for encoding 
of sub-block 4. 
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Figure 3.9. The codebook memory, length lMem=147 samples, and the 
target vector 4, length 40 samples. 


The final target sub-block to be encoded is number 5, and the 
following figure shows the corresponding codebook memory. As the 
target vector comes before the start state in time, the codebook 
memory and target vector are time reversed. 


Figure 3.10. The codebook memory, length lMem-147 samples, and the 
target vector 5, length 40 samples. 


For the case of 20 ms frames, the encoding procedure looks almost 
exactly the same. The only difference is that the size of the start 
state is 57 samples and that there are only three sub-blocks to be 
encoded. The encoding order is the same as above, starting with the 
23-sample target and then encoding the two remaining 40-sample sub- 
blocks, first going forward in time and then going backward in time 
relative to the start state. 


3.6.2. Perceptual Weighting of Codebook Memory and Target 


To provide a perceptual weighting of the coding error, a 
concatenation of the codebook memory and the target to be coded is 
all-pole filtered with the perceptual weighting filter specified in 
section 3.4. The filter state of the weighting filter is set to 


zero. 
in(0..(1Mem-1)) = unweighted codebook memory 
in (lMem..(lMem+lTarget-1)) = unweighted target signal 


in -> Wk(z) -> filtered, 
where Wk(z) is taken from the sub-block of the target 


weighted codebook memory = filtered(0..(1Mem-1)) 
weighted target signal = filtered(lMem..(lMem+lTarget-1)) 


The codebook search is done with the weighted codebook memory and the 
weighted target, whereas the decoding and the codebook memory update 
uses the unweighted codebook memory. 
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3.6.3. Codebook Creation 


The codebook for the search is created from the perceptually weighted 
codebook memory. It consists of two sections, where the first is 
referred to as the base codebook and the second as the expanded 
codebook, as it is created by linear combinations of the first. Each 
of these two sections also has a subsection referred to as the 
augmented codebook. The augmented codebook is only created and used 
for the coding of the 40-sample sub-blocks and not for the 23/22- 
sample sub-block case. The codebook size used for the different 
sub-blocks and different stages are summarized in the table below. 


Stage 
1 2&3 
22 128 (64+0)*2 128 (64+0)*2 
Sub- 1:st 40 256 (108+20)*2 128 (44+20)*2 
Blocks  2:nd 40 256 (108+20) *2 256 (108+20) *2 
3:rd 40 256 (108+20) *2 256 (108+20) *2 
4:th 40 256 (108+20)*2 256 (108+20) *2 


Table 3.1. Codebook sizes for the 30 ms mode. 


Table 3.1 shows the codebook size for the different sub-blocks and 
stages for 30 ms frames. Inside the parentheses it shows how the 
number of codebook vectors is distributed, within the two sections, 
between the base/expanded codebook and the augmented base/expanded 
codebook. It should be interpreted in the following way: 
(base/expanded cb + augmented base/expanded cb). The total number of 
codebook vectors for a specific sub-block and stage is given by the 
following formula: 


Tot. cb vectors = base cb + aug. base cb + exp. cb + aug. exp. cb 


The corresponding values to Figure 3.1 for 20 ms frames are only 
slightly modified. The short sub-block is 23 instead of 22 samples, 
and the 3:rd and 4:th sub-frame are not present. 


3.6.3.1. Creation of a Base Codebook 


The base codebook is given by the perceptually weighted codebook 
memory that is mentioned in section 3.5.3. The different codebook 
vectors are given by sliding a window of length 23/22 or 40, given by 
variable lTarget, over the lMem-long perceptually weighted codebook 
memory. The indices are ordered so that the codebook vector 
containing sample (lMem-lTarget-n) to (1Mem-n-1) of the codebook 
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memory vector has index n, where n=0..1Mem-lTarget. Thus the total 
number of base codebook vectors is lMem-lTarget+l, and the indices 
are ordered from sample delay lTarget (23/22 or 40) to lMem+1 (86 or 
148). 


3.6.3.2. Codebook Expansion 


The base codebook is expanded by a factor of 2, creating an 
additional section in the codebook. This new section is obtained by 
filtering the base codebook, base cb, with a FIR filter with filter 
length CB FILTERLEN-8. The construction of the expanded codebook 
compensates for the delay of four samples introduced by the FIR 
filter. 


cbfiltersTbl [CB_FILTERLEN]={-0.033691, 0.083740, -0.144043, 
0.713379, 0.806152, -0.184326, 
0.108887, -0.034180); 


\ 
exp cb(k)= + > cbfiltersTbl(i)*x(k-i+4) 
[ 
i=0... (LPC FILTERORDER-1) 
where x(j) = base cb(j) for j-0..1Mem-1 and 0 otherwise 


The individual codebook vectors of the new filtered codebook, exp cb, 
and their indices are obtained in the same fashion as described above 
for the base codebook. 


3.6.3.3. Codebook Augmentation 


For cases where encoding entire sub-blocks, i.e., cbveclen-40, the 
base and expanded codebooks are augmented to increase codebook 
richness. The codebooks are augmented by vectors produced by 
interpolation of segments. The base and expanded codebook, 
constructed above, consists of vectors corresponding to sample delays 
in the range from cbveclen to lMem. The codebook augmentation 
attempts to augment these codebooks with vectors corresponding to 
sample delays from 20 to 39. However, not all of these samples are 
present in the base codebook and expanded codebook, respectively. 
Therefore, the augmentation vectors are constructed as linear 
combinations between samples corresponding to sample delays in the 
range 20 to 39. The general idea of this procedure is presented in 
the following figures and text. The procedure is performed for both 
the base codebook and the expanded codebook. 
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codebook memory | 


|-5-|---15---|-5- 
pi pp po 
Codebook vector 
| ---15---|-5-|-----20----- | <- corresponding to 
i ii iii sample delay 20 
Figure 3.11. Generation of the first augmented codebook. 


Figure 3.11 shows the codebook memory with pointers pi, pp, and po, 
where pi points to sample 25, pp to sample 20, and po to sample 5. 
Below the codebook memory, the augmented codebook vector 
corresponding to sample delay 20 is drawn. Segment i consists of 
fifteen samples from pointer pp and forward in time. Segment ii 
consists of five interpolated samples from pi and forward and from po 
and forward. The samples are linearly interpolated with weights 
[0.0, 0.2, 0.4, 0.6, 0.8] for pi and weights [1.0, 0.8, 0.6, 0.4, 
0.2] for po. Segment iii consists of twenty samples from pp and 
forward. The augmented codebook vector corresponding to sample delay 
21 is produced by moving pointers pp and pi one sample backward in 
time. This gives us the following figure. 


codebook memory | 


(254) e i16 | «s 
pi pp po 
Codebook vector 
| ---16---|-5-|-----19----- | <- corresponding to 
i ii iii sample delay 21 
Figure 3.12. Generation of the second augmented codebook. 


Figure 3.12 shows the codebook memory with pointers pi, pp and po 
where pi points to sample 26, pp to sample 21, and po to sample 5. 
Below the codebook memory, the augmented codebook vector 
corresponding to sample delay 21 is drawn. Segment i now consists of 
sixteen samples from pp and forward. Segment ii consists of five 
interpolated samples from pi and forward and from po and forward, and 
the interpolation weights are the same throughout the procedure. 
Segment iii consists of nineteen samples from pp and forward. The 
same procedure of moving the two pointers is continued until the last 
augmented vector corresponding to sample delay 39 has been created. 
This gives a total of twenty new codebook vectors to each of the two 
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sections. Thus the total number of codebook vectors for each of the 
two sections, when including the augmented codebook, becomes lMem- 
SUBL+1+SUBL/2. This is provided that augmentation is evoked, i.e., 
that lTarget-SUBL. 


3.6.4. Codebook Search 


The codebook search uses the codebooks described in the sections 
above to find the best match of the perceptually weighted target, see 
section 3.6.2. The search method is a multi-stage gain-shape 
matching performed as follows. At each stage the best shape vector 
is identified, then the gain is calculated and quantized, and finally 
the target is updated in preparation for the next codebook search 
stage. The number of stages is CB NSTAGES-3. 


If the target is the 23/22-sample vector the codebooks are indexed so 
that the base codebook is followed by the expanded codebook. If the 
target is 40 samples the order is as follows: base codebook, 
augmented base codebook, expanded codebook, and augmented expanded 
codebook. The size of each codebook section and its corresponding 
augmented section is given by Table 3.1 in section 3.6.3. 


For example, when the second 40-sample sub-block is coded, indices 0 
- 107 correspond to the base codebook, 108 - 127 correspond to the 
augmented base codebook, 128 - 235 correspond to the expanded 
codebook, and indices 236 - 255 correspond to the augmented expanded 
codebook. The indices are divided in the same fashion for all stages 
in the example. Only in the case of coding the first 40-sample sub- 
block is there a difference between stages (see Table 3.1). 


3.6.4.1. Codebook Search at Each Stage 
The codebooks are searched to find the best match to the target at 
each stage. When the best match is found, the target is updated and 
the next-stage search is started. The three chosen codebook vectors 
and their corresponding gains constitute the encoded sub-block. The 
best match is decided by the following three criteria: 
1. Compute the measure 


(target*cbvec)^2 / ||cbvec|]|^2 


for all codebook vectors, cbvec, and choose the codebook vector 


maximizing the measure. The expression (target*cbvec) is the dot 
product between the target vector to be coded and the codebook vector 
for which we compute the measure. The norm, EPESEP is defined as the 


square root of (x*x). 


Andersen, et al. Experimental [Page 26] 


RFC 3951 Internet Low Bit Rate Codec December 2004 


2. The absolute value of the gain, corresponding to the chosen 
codebook vector, cbvec, must be smaller than a fixed limit, 
CB MAXGAIN=1.3: 
|gain| < CB MAXGAIN 
where the gain is computed in the following way: 


gain = (target*cbvec) / ||cbvec||*2 


3. For the first stage, the dot product of the chosen codebook vector 
and target must be positive: 


target*cbvec > 0 


In practice the above criteria are used in a sequential search 
through all codebook vectors. The best match is found by registering 
a new max measure and index whenever the previously registered max 
measure is surpassed and all other criteria are fulfilled. If none 
of the codebook vectors fulfill (2) and (3), the first codebook 
vector is selected. 


3.6.4.2. Gain Quantization at Each Stage 
The gain follows as a result of the computation 
gain = (target*cbvec) / ||cbvec||*2 


for the optimal codebook vector found by the procedure in section 
3:005 x1. 


The three stages quantize the gain, using 5, 4, and 3 bits, 
respectively. In the first stage, the gain is limited to positive 
values. This gain is quantized by finding the nearest value in the 
quantization table gain sq5Tbl. 


gain sq5Tbl[32]=(0.037476, 0.075012, 0.112488, 0.150024, 0.187500, 


0.224976, 0.262512, 0.299988, 0.337524, 0.375000, 
0.412476, 0.450012, 0.487488, 0.525024, 0.562500, 
0.599976, 0.637512, 0.674988, 0.712524, 0.750000, 
0.787476, 0.825012, 0.862488, 0.900024, 0.937500, 
0.974976, 1.012512, 1.049988, 1.087524, 1.125000, 
1.162476, 1.200012] 


The gains of the subsequent two stages can be either positive or 
negative. The gains are quantized by using a quantization table 
times a scale factor. The second stage uses the table gain sq4Tbl, 
and the third stage uses gain sq3Tbl. The scale factor equates 0.1 
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or the absolute value of the quantized gain representation value 
obtained in the previous stage, whichever is larger. Again, the 
resulting gain index is the index to the nearest value of the 
guantization table times the scale factor. 


gainQ = scaleFact * gain sgXTbl [index] 
gain sq4Tbl[16]=(-1.049988, -0.900024, -0.750000, -0.599976, 
-0.450012, -0.299988, -0.150024, 0.000000, 0.150024, 
0.299988, 0.450012, 0.599976, 0.750000, 0.900024, 
1.049988, 1.200012) 


gain sq3Tbl[8]=(-1.000000, -0.659973, -0.330017,0.000000, 
0.250000, 0.500000, 0.750000, 1.00000) 


3.6.4.3. Preparation of Target for Next Stage 


Before performing the search for the next stage, the perceptually 


weighted target vector is updated by subtracting from it the selected 


codebook vector (from the perceptually weighted codebook) times the 
corresponding quantized gain. 


target [i] = target[i] - gainQ * selected vec[i]; 


A reference implementation of the codebook encoding is found in 
Appendix A.34. 


3.7. Gain Correction Encoding 


The start state is quantized in a relatively model independent manner 


using 3 bits per sample. In contrast, the remaining parts of the 
block are encoded by using an adaptive codebook. This codebook will 
produce high matching accuracy whenever there is a high correlation 


between the target and the best codebook vector. For unvoiced speech 


segments and background noises, this is not necessarily so, which, 
due to the nature of the squared error criterion, results in a coded 
signal with less power than the target signal. As the coded start 
state has good power matching to the target, the result is a power 


fluctuation within the encoded frame. Perceptually, the main problem 


with this is that the time envelope of the signal energy becomes 
unsteady. To overcome this problem, the gains for the codebooks are 
re-scaled after the codebook encoding by searching for a new gain 
factor for the first stage codebook that provides better power 
matching. 


First, the energy for the target signal, tene, is computed along with 


the energy for the coded signal, cene, given by the addition of the 
three gain scaled codebook vectors. Because the gains of the second 
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and third stage scale with the gain of the first stage, when the 
first stage gain is changed from gain[0] to gain sq5Tbl[i] the energy 
of the coded signal changes from cene to 


cene* (gain sq5Tbl[i]*gain sq5Tbl[i])/(gain[0]*gain[0]) 


where gain[0] is the gain for the first stage found in the original 
codebook search. A refined search is performed by testing the gain 
indices i=0 to 31, and as long as the new codebook energy as given 
above is less than tene, the gain index for stage 1 is increased. A 
restriction is applied so that the new gain value for stage 1 cannot 
be more than two times higher than the original value found in the 
codebook search. Note that by using this method we do not change the 
shape of the encoded vector, only the gain or amplitude. 


3.8. Bitstream Definition 


The total number of bits used to describe one frame of 20 ms speech 
is 304, which fits in 38 bytes and results in a bit rate of 15.20 
kbit/s. For the case of a frame length of 30 ms speech, the total 
number of bits used is 400, which fits in 50 bytes and results ina 
bit rate of 13.33 kbit/s. In the bitstream definition, the bits are 
distributed into three classes according to their bit error or loss 
sensitivity. The most sensitive bits (class 1) are placed first in 
the bitstream for each frame. The less sensitive bits (class 2) are 
placed after the class 1 bits. The least sensitive bits (class 3) 
are placed at the end of the bitstream for each frame. 


In the 20/30 ms frame length cases for each class, the following hold 
true: The class 1 bits occupy a total of 6/8 bytes (48/64 bits), the 
class 2 bits occupy 8/12 bytes (64/96 bits), and the class 3 bits 


occupy 24/30 bytes (191/239 bits). This distribution of the bits 
enables the use of uneven level protection (ULP) as is exploited in 
the payload format definition for iLBC [1]. The detailed bit 


allocation is shown in the table below. When a quantization index is 
distributed between more classes, the more significant bits belong to 
the lowest class. 
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Bitstream structure: 


Parameter | 
ME 
————————————————————————————————— +————— 
Split 1 | 6 
LSF 1 Split 2 | 7 
LSF Split 3 | 7 
——— — — — +-—-—-—-—- 
Split 1 | NA 
LSF 2 Split 2 | 
Split 3 | 
————————————————— +————— 
sum | 20 
————————————————————————————————— +————— 
Block Class | 2 
_ > _ _ — — _ — H====- 
Position 22 sample segment | 1 
————————————————————————————————— +————— 
Scale Factor State Coder | 6 
E_  _ _ _ — — H====- 
Sample 0 | 3 
Quantized Sample 1 | 3 
Residual : | : 
State | i 
Samples : | : 
Sample 56 3 
Sample 57 
————————————————— +————— 
Sum | 471 
————————————————————————————————— +————— 
Stage 1 | 7 
CB for 22/23 Stage 2 7 
sample block Stage 3 ij 
————————————————— +————— 
Sum | 21 
————————————————————————————————— +————— 
Stage 1 | 5 
Gain for 22/23 Stage 2 4 
sample block Stage 3 3 
——————— — — — +————— 
Sum | 12 
————————————————————————————————— +————— 
Stage 1 | 8 
sub-block 1 Stage 2 7 
Stage 3 7 
——— — — — — +————— 
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Bits Clas 
ms frame | 


<6,0,0> 
<7,0,0> 
<7,0,0> 


Not Appl.) 


<0,1,2> 
<0,1,2> 


<2,0,3> 
Ll li ds 
<0,0,3> 


<7,0,1> 
<0, 0,7> 
<0, 0, 7> 
---------- + 


December 2004 


s <1,2,3> | 
30 ms frame | 
Said mně ipd qued pisi msn) np Fit tn iud A, + 
6 <6,0,0> | 
7 <7,0,0> | 
7 <7,0,0> | 
———— of et un PEN + 
6 <6,0,0> | 
7 <7,0,0> | 
7 <7,0,0> | 
— et r jn Ce FEE + 
40 <40,0,0> | 
EE E A + 
3 <3,0,0> | 
sn A + 
1 <1,0,0> | 
En V a EEE NE is + 
6 <6,0,0> | 
[CE Set o Ses ee A A + 
3 <0,1,2> | 
3 <0,1,2> | 
: ; | 
| 
: | 

3 <0,1,2> 

3 <0,1,2> 
PE aad ver jn Sj en ně EAN + 
174 <0,58,116>| 
AE AA E pak Fan ná va + 
7 <4,2,1> | 

7 <0; 0, 75 

7 <0,0,7> 
Won E Pat FEE eu RS kom Ces PEER + 
21 ay | 
Jim bí Cr sei C ig EA et AEE + 
5 <1,1,3> | 

AER DS 

3 <0,0,3> 
A imei mm jmd ar it + 
12 <2,2,8> || 
Vin E E i p NS so ně qun + 
8 <6,1,1> | 

720,0; 75 

7 <0,0,7> 
da n jé A ou a ue i si pt Seg + 
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Stage 1 | 8 <0,0,8> | 8x0, T, 15 | 
sub-block 2 Stage 2 | 8 <0,0,8> | 8 <0,0,8> | 
Indices Stage 3 | 8 <0,0,8> | 8 <0,0,8> | 
for CB s.” O L AnGR A RTH EARE k o k PE ST + 
sub-blocks Stage 1 | NA | 8 <0,7,1> 
sub-block 3 Stage 2 | NA | 8 <0, 0, 8> 
Stage 3 | NA | 8 <0,0, 8> | 
M S S li I -—-------------—---------------—* 
Stage 1 NA 8 <0,7,1> 
sub-block 4 Stage 2 NA 8 <0,0,8> 
Stage 3 | NA | 8 <0,0,8> | 
E SEE +———————————————+-—————————-————+ 
Sum | 46 <7,0,39> | 94 <6,22,66> | 
E O a T S + 
Stage 1 | 5 <1,2,2> | 5 <1,2,2> | 
sub-block 1 Stage 2 4 <1,1,2> 4 <1,2,1> 
Stage 3 3 <0,0,3> 3 <0,0,3> 
M S S li I -—----------------------------—M 
Stage 1 | 5 al 135 | 5 <0,2,3> | 
sub-block 2 Stage 2 | 4 <0,2,2> | 4 <0,2,2> | 
Stage 3 | 3 <0,0,3> | 3 <0,0,3> | 
Gains: for (P o7555755=5SBPASP A FERRER SS RES + 
sub-blocks Stage 1 | NA | 5 <0,1,4> 
sub-block 3 Stage 2 | NA | 4 <0,1,3> 
Stage 3 | NA | 3 <0,0,3> | 
o S S li I A E E 
Stage 1 | NA | Sol || 
sub-block 4 Stage 2 NA 4 <0,1,3> 
Stage 3 NA 3 €0,:0,:3> 
M S S li I -—------------—---------------—M 
Sum | 24 <3,6,15> | 48 <2,12,34> | 
SA +———————————————+-—————————-————+ 
Empty frame indicator | 1 <0,0,1> | 1 <0,0,1> | 
SUM 304 <48,64,192> 400 <64,96,240> 


Table 3.2. The bitstream definition for iLBC for both the 20 ms 
frame size mode and the 30 ms frame size mode. 


When packetized into the payload, the bits MUST be sorted as follows: 
All the class 1 bits in the order (from top to bottom) as specified 
in the table, all the class 2 bits (from top to bottom), and all the 
class 3 bits in the same sequential order. The last bit, the empty 
frame indicator, SHOULD be set to zero by the encoder. If this bit 
is set to 1 the decoder SHOULD treat the data as a lost frame. For 
example, this bit can be set to 1 to indicate lost frame for file 
storage format, as in [1]. 
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4. 


Decoder Principles 


This section describes the principles of each component of the 
decoder algorithm. 


$ + o mr + qc * 
payload -» | 1. Get para | -» | 2. LPC | -> | 3. Sc Dequant => 
toa soa + Ho + $ E + 
$ + 4------------------ * 
-» | 4. Mem setup| -» | 5. Construct res |------- > 
| +------------- + 4------------------- | 
Ses «—--—---------«-----------«------------ 


bE + +—========= + 
-> | 6. Enhance res | -> | 7. Synth | ------------ > 
Fees ess + = + 
E + 
-> | 8. Post Process | ---------------- > decoded speech 
a O + 
Figure 4.1. Flow chart of the iLBC decoder. If a frame was lost, 


steps 1 to 5 SHOULD be replaced by a PLC algorithm. 


1: 


2. 


Extract the parameters from the bitstream. 

Decode the LPC and interpolate (section 4.1). 

Construct the 57/58-sample start state (section 4.2). 

Set up the memory by using data from the decoded residual. This 
memory is used for codebook construction. For blocks preceding 
the start state, both the decoded residual and the target are time 
reversed.  Sub-frames are decoded in the same order as they were 
encoded. 

Construct the residuals of this sub-frame (gain[0]*cbvec[0] + 
gain[1]*cbvec[1] + gain[2]*cbvec[2]). Repeat 4 and 5 until the 
residual of all sub-blocks has been constructed. 

Enhance the residual with the post filter (section 4.6). 


Synthesis of the residual (section 4.7). 


Post process with HP filter, if desired (section 4.8). 
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4.1. LPC Filter Reconstruction 


The decoding of the LP filter parameters is very straightforward. 

For a set of three/six indices, the corresponding LSF vector(s) are 
found by simple table lookup. For each of the LSF vectors, the three 
split vectors are concatenated to obtain glsfl and qlsf2, 
respectively (in the 20 ms mode only one LSF vector, qlsf, is 


constructed). The next step is the stability check described in 
section 3.2.5 followed by the interpolation scheme described in 
section 3.2.6 (3.2.7 for 20 ms frames). The only difference is that 


only the quantized LSFs are known at the decoder, and hence the 
unquantized LSFs are not processed. 


A reference implementation of the LPC filter reconstruction is given 
in Appendix A.36. 


4.2. Start State Reconstruction 


The scalar encoded STATE SHORT LEN-58 (STATE SHORT LEN-57 in the 20 
ms mode) state samples are reconstructed by 1) forming a set of 
samples (by table lookup) from the index stream idxVec[n], 2) 
multiplying the set with 1/scal-(10^qmax)/4.5, 3) time reversing the 
57/58 samples, 4) filtering the time reversed block with the 
dispersion (all-pass) filter used in the encoder (as described in 
section 3.5.2); this compensates for the phase distortion of the 
earlier filter operation, and 5 reversing the 57/58 samples from the 
previous step. 


in(0..(STATE SHORT LEN-1)) = time reversed samples from table 
look-up, 
idxVecDec((STATE SHORT LEN-1)..0) 


in (STATE SHORT LEN..(2*STATE SHORT LEN-1)) = 0 
Pk(z) = A^rk(z)/A^k(z), where 
vo 
A”rk(z)= z“ (-LPC FILTERORDER) + > a^ki*z^(i-(LPC FILTERORDER-1)) 
i sn 


and A^k(z) is taken from the block where the start state begins 
in -> Pk(z) -> filtered 
out (k) = filtered (STATE SHORT LEN-1-k) + 


filtered(2*STATE SHORT LEN-1-k), 
k=0.. (STATE SHORT LEN-1) 


Andersen, et al. Experimental [Page 33] 


RFC 3951 Internet Low Bit Rate Codec December 2004 


The remaining 23/22 samples in the state are reconstructed by the 
same adaptive codebook technique described in section 4.3. The 
location bit determines whether these are the first or the last 23/22 
samples of the 80-sample state vector. If the remaining 23/22 
samples are the first samples, then the scalar encoded 
STATE_SHORT_LEN state samples are time-reversed before initialization 
of the adaptive codebook memory vector. 


A reference implementation of the start state reconstruction is given 
in Appendix A.44. 


4.3. Excitation Decoding Loop 


The decoding of the LPC excitation vector proceeds in the same order 
in which the residual was encoded at the encoder. That is, after the 
decoding of the entire 80-sample state vector, the forward sub-blocks 
(corresponding to samples occurring after the state vector samples) 
are decoded, and then the backward sub-blocks (corresponding to 
samples occurring before the state vector) are decoded, resulting in 
a fully decoded block of excitation signal samples. 


In particular, each sub-block is decoded by using the multistage 
adaptive codebook decoding module described in section 4.4. This 
module relies upon an adaptive codebook memory constructed before 
each run of the adaptive codebook decoding. The construction of the 
adaptive codebook memory in the decoder is identical to the method 
outlined in section 3.6.3, except that it is done on the codebook 
memory without perceptual weighting. 


For the initial forward sub-block, the last STATE LEN=80 samples of 
the length CB LMEM=147 adaptive codebook memory are filled with the 
samples of the state vector. For subsequent forward sub-blocks, the 
first SUBL=40 samples of the adaptive codebook memory are discarded, 
the remaining samples are shifted by SUBL samples toward the 
beginning of the vector, and the newly decoded SUBL=40 samples are 
placed at the end of the adaptive codebook memory. For backward 
sub-blocks, the construction is similar, except that every vector of 
samples involved is first time reversed. 


A reference implementation of the excitation decoding loop is found 
in Appendix A.5. 
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4.4. Multistage Adaptive Codebook Decoding 


The Multistage Adaptive Codebook Decoding module is used at both the 
sender (encoder) and the receiver (decoder) ends to produce a 
synthetic signal in the residual domain that is eventually used to 
produce synthetic speech. The module takes the index values used to 
construct vectors that are scaled and summed together to produce a 
synthetic signal that is the output of the module. 


4.4.1. Construction of the Decoded Excitation Signal 


The unpacked index values provided at the input to the module are 
references to extended codebooks, which are constructed as described 
in section 3.6.3, except that they are based on the codebook memory 
without the perceptual weighting. The unpacked three indices are 
used to look up three codebook vectors. The unpacked three gain 
indices are used to decode the corresponding 3 gains. In this 
decoding, the successive rescaling, as described in section 3.6.4.2, 
is applied. 


A reference implementation of the adaptive codebook decoding is 
listed in Appendix A.32. 


4.5. Packet Loss Concealment 


If packet loss occurs, the decoder receives a signal saying that 
information regarding a block is lost. For such blocks it is 
RECOMMENDED to use a Packet Loss Concealment (PLC) unit to create a 
decoded signal that masks the effect of that packet loss. In the 
following we will describe an example of a PLC unit that can be used 
with the iLBC codec. As the PLC unit is used only at the decoder, 
the PLC unit does not affect interoperability between 
implementations. Other PLC implementations MAY therefore be used. 


The PLC described operates on the LP filters and the excitation 
signals and is based on the following principles: 


4.5.1. Block Received Correctly and Previous Block Also Received 


If the block is received correctly, the PLC only records state 
information of the current block that can be used in case the next 
block is lost. The LP filter coefficients for each sub-block and the 
entire decoded excitation signal are all saved in the decoder state 
structure. All of this information will be needed if the following 
block is lost. 
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4.5.2. Block Not Received 


If the block is not received, the block substitution is based on a 
pitch-synchronous repetition of the excitation signal, which is 
filtered by the last LP filter of the previous block. The previous 
block's information is stored in the decoder state structure. 


A correlation analysis is performed on the previous block's 
excitation signal in order to detect the amount of pitch periodicity 


and a pitch value. The correlation measure is also used to decide on 
the voicing level (the degree to which the previous block's 
excitation was a voiced or roughly periodic signal). The excitation 


in the previous block is used to create an excitation for the block 
to be substituted, such that the pitch of the previous block is 
maintained. Therefore, the new excitation is constructed in a 
pitch-synchronous manner. In order to avoid a buzzy-sounding 
substituted block, a random excitation is mixed with the new pitch 
periodic excitation, and the relative use of the two components is 
computed from the correlation measure (voicing level). 


For the block to be substituted, the newly constructed excitation 
Signal is then passed through the LP filter to produce the speech 
that will be substituted for the lost block. 


For several consecutive lost blocks, the packet loss concealment 
continues in a similar manner. The correlation measure of the last 
block received is still used along with the same pitch value. The LP 
filters of the last block received are also used again. The energy 
of the substituted excitation for consecutive lost blocks is 
decreased, leading to a dampened excitation, and therefore to 
dampened speech. 


4.5.3. Block Received Correctly When Previous Block Not Received 


For the case in which a block is received correctly when the previous 
block was not, the correctly received block's directly decoded speech 
(based solely on the received block) is not used as the actual 
output. The reason for this is that the directly decoded speech does 
not necessarily smoothly merge into the synthetic speech generated 
for the previous lost block. If the two signals are not smoothly 
merged, an audible discontinuity is accidentally produced. 

Therefore, a correlation analysis between the two blocks of 
excitation signal (the excitation of the previous concealed block and 
that of the current received block) is performed to find the best 
phase match. Then a simple overlap-add procedure is performed to 
merge the previous excitation smoothly into the current block's 
excitation. 
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The exact implementation of the packet loss concealment does not 
influence interoperability of the codec. 


A reference implementation of the packet loss concealment is 
suggested in Appendix A.14. Exact compliance with this suggested 
algorithm is not needed for a reference implementation to be fully 
compatible with the overall codec specification. 


4.6. Enhancement 


The decoder contains an enhancement unit that operates on the 
reconstructed excitation signal. The enhancement unit increases the 
perceptual quality of the reconstructed signal by reducing the 
Speech-correlated noise in the voiced speech segments. Compared to 
traditional postfilters, the enhancer has an advantage in that it can 
only modify the excitation signal slightly. This means that there is 
no risk of over enhancement. The enhancer works very similarly for 
both the 20 ms frame size mode and the 30 ms frame size mode. 


For the mode with 20 ms frame size, the enhancer uses a memory of six 
80-sample excitation blocks prior in time plus the two new 80-sample 
excitation blocks. For each block of 160 new unenhanced excitation 
samples, 160 enhanced excitation samples are produced. The enhanced 
excitation is 40-sample delayed compared to the unenhanced 
excitation, as the enhancer algorithm uses lookahead. 


For the mode with 30 ms frame size, the enhancer uses a memory of 
five 80-sample excitation blocks prior in time plus the three new 
80-sample excitation blocks. For each block of 240 new unenhanced 
excitation samples, 240 enhanced excitation samples are produced. 
The enhanced excitation is 80-sample delayed compared to the 
unenhanced excitation, as the enhancer algorithm uses lookahead. 


Outline of Enhancer 


The speech enhancement unit operates on sub-blocks of 80 samples, 
which means that there are two/three 80 sample sub-blocks per frame. 
Each of these two/three sub-blocks is enhanced separately, but in an 
analogous manner. 
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unenhanced residual 


| 4--------------- + 4-------------- + 
+-> | 1. Pitch Est | -> | 2. Find PSSO | -------- > 
4--------------- + | +-------------- + 
4+----- «------- «------ <--+ 
4------------ * enh block 0..1/2 | 
-> | 3. Smooth | 
H -- + | 
\ 
/\ | 
fie À Already | 
/ 4, N----------- »----------- »----------- + | 
\Crit/ Fulfilled | | 
\? / v | 
\/ | 
Me FEES + === 2 + + + 
Not +->| 5. Use Constr. | -> | 6. Mix | ----- > 
Fulfilled +----------------- + SRE eed + 


np presten > enhanced residual 
Figure 4.2. Flow chart of the enhancer. 
1. Pitch estimation of each of the two/three new 80-sample blocks. 


2. Find the pitch-period-synchronous seguence n (for block k) by a 
search around the estimated pitch value. Do this for n=1,2,3, 
z15-2,9535 


3. Calculate the smoothed residual generated by the six pitch- 
period-synchronous sequences from prior step. 


4. Check if the smoothed residual satisfies the criterion (section 
4.6.4). 


5. Use constraint to calculate mixing factor (section 4.6.5). 
6. Mix smoothed signal with unenhanced residual (pssq(n) n=0). 


The main idea of the enhancer is to find three 80 sample blocks 
before and three 80-sample blocks after the analyzed unenhanced sub- 
block and to use these to improve the quality of the excitation in 
that sub-block. The six blocks are chosen so that they have the 
highest possible correlation with the unenhanced sub-block that is 
being enhanced. In other words, the six blocks are pitch-period- 
synchronous sequences to the unenhanced sub-block. 
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A linear combination of the six pitch-period-synchronous seguences is 
calculated that approximates the sub-block. If the squared error 
between the approximation and the unenhanced sub-block is small 
enough, the enhanced residual is set egual to this approximation. 

For the cases when the squared error criterion is not fulfilled, a 
linear combination of the approximation and the unenhanced residual 
forms the enhanced residual. 


4.6.1. Estimating the Pitch 


Pitch estimates are needed to determine the locations of the pitch- 
period-synchronous seguences in a complexity-efficient way. For each 
of the new two/three sub-blocks, a pitch estimate is calculated by 
finding the maximum correlation in the range from lag 20 to lag 120. 
These pitch estimates are used to narrow down the search for the best 
possible pitch-period-synchronous seguences. 


4.6.2. Determination of the Pitch-Synchronous Sequences 


Upon receiving the pitch estimates from the prior step, the enhancer 
analyzes and enhances one 80-sample sub-block at a time. The pitch- 
period-synchronous-seguences pssq(n) can be viewed as vectors of 
length 80 samples each shifted n*lag samples from the current sub- 
block. The six pitch-period-synchronous-seguences, pssg(-3) to 
pssq(-1) and pssq(1) to pssq(3), are found one at a time by the steps 
below: 


1) Calculate the estimate of the position of the pssq(n). For 
pssq(n) in front of pssq(0) (n > 0), the location of the pssq(n) 
is estimated by moving one pitch estimate forward in time from the 


exact location of pssq(n-1). Similarly, pssq(n) behind pssq(0) (n 
« 0) is estimated by moving one pitch estimate backward in time 
from the exact location of pssq(n+1). If the estimated pssq(n) 


vector location is totally within the enhancer memory (Figure 
4.3), steps 2, 3, and 4 are performed, otherwise the pssq(n) is 
set to zeros. 


2) Compute the correlation between the unenhanced excitation and 


vectors around the estimated location interval of pssq(n). The 
correlation is calculated in the interval estimated location +/- 2 
samples. This results in five correlation values. 


3) The five correlation values are upsampled by a factor of 4, by 
using four simple upsampling filters (MA filters with coefficients 
upsFilterl.. upsFilter4). Within these the maximum value is 
found, which specifies the best pitch-period with a resolution of 
a quarter of a sample. 
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upsFilter1[7]={0.000000 0.000000 0.000000 1.000000 
0.000000 0.000000 0.000000] 

upsFilter2[7]={0.015625 -0.076904 0.288330 0.862061 
-0.106445 0.018799 -0.015625] 

upsFilter3[7]={0.023682 -0.124268 0.601563 0.601563 
-0.124268 0.023682 -0.023682] 

upsFilter4[7]=(0.018799 -0.106445 0.862061 0.288330 
-0.076904 0.015625 -0.018799) 


4) Generate the pssq(n) vector by upsampling of the excitation memory 
and extracting the sequence that corresponds to the lag delay that 
was calculated in prior step. 


With the steps above, all the pssq(n) can be found in an iterative 
manner, first moving backward in time from pssq(0) and then forward 
in time from pssq(0). 


0 159 319 479 639 
$ + 
SN ess qp hR A 
4----------------2--------2--------------2--------------2----------- t 
lpssq 0 | 
|pssa -1| |pssq 1 | 
lpssq -2 | lpssq 2 | 

lpssq -3| lpssq 3 | 

Figure 4.3. Enhancement for 20 ms frame size. 


Figure 4.3 depicts pitch-period-synchronous sequences in the 
enhancement of the first 80 sample block in the 20 ms frame size 
mode. The unenhanced signal input is stored in the last two sub- 
blocks (1 - 2), and the six other sub-blocks contain unenhanced 
residual prior-in-time. We perform the enhancement algorithm on two 
blocks of 80 samples, where the first of the two blocks consists of 
the last 40 samples of sub-block 0 and the first 40 samples of sub- 
block 1. The second 80-sample block consists of the last 40 samples 
of sub-block 1 and the first 40 samples of sub-block 2. 
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0 159 319 479 639 
$ + 
| 1-3 do dodo | 2 | 2 1 3 | 
$ + 
[pssq 0 | 
|pssq -1| |pssq 1 | 
lpssq -2 | lpssq 2 | 
|pssa -3| |pssa 3 | 

Figure 4.4. Enhancement for 30 ms frame size. 


Figure 4.4 depicts pitch-period-synchronous sequences in the 
enhancement of the first 80-sample block in the 30 ms frame size 


mode. The unenhanced signal input is stored in the last three sub- 
blocks (1- 3). The five other sub-blocks contain unenhanced 
residual prior-in-time. The enhancement algorithm is performed on 


the three 80 sample sub-blocks 0, 1, and 2. 
4.6.3. Calculation of the Smoothed Excitation 


A linear combination of the six pssq(n) (n!=0) form a smoothed 


approximation, z, of pssq(0). Most of the weight is put on the 
sequences that are close to pssq(0), as these are likely to be most 
similar to pssq(0). The smoothed vector is also rescaled so that the 


energy of z is the same as the energy of pssq(0). 


y B4 pssq(i) * pssq weight (i) 
Tm à 
pssq weight (i) = 0.5*(1-cos(2*pi*(i+4)/(2*3+2))) 
z = C * y, where C = ||pssato) ||/|ly|| 
4.6.4. Enhancer Criterion 


The criterion of the enhancer is that the enhanced excitation is not 
allowed to differ much from the unenhanced excitation. This 
criterion is checked for each 80-sample sub-block. 


e < (b* ||pssq(0)||*2), where b=0.05 and (Constraint 1) 


e = (pssq(0)-z)*(pssq(0)-z), and "*" means the dot product 
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4.6.5. Enhancing the excitation 


From the criterion in the previous section, it is clear that the 
excitation is not allowed to change much. The purpose of this 
constraint is to prevent the creation of an enhanced signal 
significantly different from the original signal. This also means 
that the constraint limits the numerical size of the errors that the 
enhancement procedure can make. That is especially important in 
unvoiced segments and background noise segments for which increased 
periodicity could lead to lower perceived quality. 


When the constraint in the prior section is not met, the enhanced 
residual is instead calculated through a constrained optimization by 
using the Lagrange multiplier technique. The new constraint is that 


e = (b * ||pssq(0) | |*2) (Constraint 2) 


We distinguish two solution regions for the optimization: 1) the 
region where the first constraint is fulfilled and 2) the region 
where the first constraint is not fulfilled and the second constraint 
must be used. 


In the first case, where the second constraint is not needed, the 
optimized re-estimated vector is simply z, the energy-scaled version 
of y. 


In the second case, where the second constraint is activated and 
becomes an equality constraint, we have 


z= A*y + B*pssq(0) 

where 
A = sqrt((b-b^2/4)* (w00*w00)/ (wll*w00 + w10*w10)) and 
wll = pssq(0)*pssq(0) 


w00 = y*y 
= y*pssq(0) (* symbolizes the dot product) 


= 

fan 

o 
| 


B = 1 - b/2 - A * w10/w00 


Appendix A.16 contains a listing of a reference implementation for 
the enhancement method. 
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4. 


4. 


7. 


7. 


7. Synthesis Filtering 


Upon decoding or PLC of the LP excitation block, the decoded speech 
block is obtained by running the decoded LP synthesis filter, 
1/A^k(z), over the block. The synthesis filters have to be shifted 
to compensate for the delay in the enhancer. For 20 ms frame size 
mode, they SHOULD be shifted one 40-sample sub-block, and for 30 ms 
frame size mode, they SHOULD be shifted two 40-sample sub-blocks. 
The LP coefficients SHOULD be changed at the first sample of every 
sub-block while keeping the filter state. For PLC blocks, one 
solution is to apply the last LP coefficients of the last decoded 
speech block for all sub-blocks. 


The reference implementation for the synthesis filtering can be found 
in Appendix A.48. 


8. Post Filtering 


If desired, the decoded block can be filtered by a high-pass filter. 
This removes the low freguencies of the decoded signal. A reference 
implementation of this, with cutoff at 65 Hz, is shown in Appendix 
A.30. 


Security Considerations 


This algorithm for the coding of speech signals is not subject to any 
known security consideration; however, its RTP payload format [1] is 
subject to several considerations, which are addressed there. 
Confidentiality of the media streams is achieved by encryption; 
therefore external mechanisms, such as SRTP [5], MAY be used for that 
purpose. 


Evaluation of the iLBC Implementations 
It is possible and suggested to evaluate certain iLBC implementation 
by utilizing methodology and tools available at 
http://www.ilbcfreeware.org/evaluation.html 
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APPENDIX A. Reference Implementation 


This appendix contains the complete c-code for a reference 
implementation of encoder and decoder for the specified codec. 


The c-code consists of the following files with highest-level 
functions: 


iLBC test.c: main function for evaluation purpose 
iLBC encode. encoder header 

iLBC encode. encoder function 

iLBC decode. decoder header 

iLBC decode. decoder function 


h 
et 
h: 
© 


The following files contain global defines and constants: 


iLBC define.h: global defines 
constants.h: global constants header 
constants.c: global constants memory allocations 


The following files contain subroutines: 


anaFilter.h: lpc analysis filter header 
anaFilter.c: lpc analysis filter function 
createCB.h: codebook construction header 
createCB.c: codebook construction function 
doCPLC.h: packet loss concealment header 
doCPLC.c: packet loss concealment function 
enhancer.h: signal enhancement header 

enhancer.c: signal enhancement function 

filter.h: general filter header 

filter.c: general filter functions 
FrameClassify.h: start state classification header 
FrameClassify.c: start state classification function 
gainguant.h: gain guantization header 
gainguant.c: gain guantization function 
getCBvec.h: codebook vector construction header 
getCBvec.c: codebook vector construction function 
helpfun.h: general purpose header 

helpfun.c: general purpose functions 

hpInput.h: input high pass filter header 
hpInput.c: input high pass filter function 
hpOutput.h: output high pass filter header 
hpoutput.c: output high pass filter function 
iCBConstruct.h: excitation decoding header 
iCBConstruct.c: excitation decoding function 
iCBSearch.h: excitation encoding header 
iCBSearch.c: excitation encoding function 
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LPCdecode.h: lpc 
LPCdecode.c: lpc 
LPCencode.h: lpc 
LPCencode.c: lpc 


lsf.h: line spec 
lsf.c: line spec 
packing.h: bitstream packetization header 
packing.c: bitst 
StateConstructW.h: state decoding header 
StateConstructW.c: state decoding functions 
StateSearchW.h: 
StateSearchW.c: 
syntFilter.h: lp 
syntFilter.c: lp 
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decoding header 

decoding function 
encoding header 

encoding function 

tral frequencies header 
tral frequencies functions 


ream packetization functions 


state encoding header 

state encoding function 

c synthesis filter header 

c synthesis filter function 


The implementation is portable and should work on many different 
platforms. However, i 
implementation on particular platforms, an exercise left to the 


reader. 


A.l.  iLBC test.c 


t is not difficult to optimize the 


(kok k kok k k kk k kk K kk kok K kk K kk K kk kk OK K k X kk kc KC kc KKK X ká X ká ck ck ck ckckck ck K X 


iLBC Speech Coder ANSI-C Source Code 


iLBC : 


test.c 


Copyright (C) The 
All Rights Reserved. 


Internet Society (2004). 


KKKKKKKKK X ká k kc k Ck kc k ck kCk ck kck ck k kc k Ck kc k Ck kCk ck kck ck KKK k kc k ck kc k ck kck ck KKK KKK ká kk | 


#include 
#include 
#include 
#include 
#include 
#include 
#include 


<math.h> 
<stdlib.h> 
<stdio.h> 
<string.h> 
"iLBC define. 
"iLBC encode. 
"iLBC decode. 


/* Runtime statistics 


+include 


<time.h> 


h" 
h" 
h" 


*/ 


+define ILBCNOOFWORDS MAX (NO OF BYTES 30MS/2) 


* Encoder interface function 
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short encode( /* (o) Number of bytes encoded */ 
iLBC Enc Inst t *iLBCenc inst, 
/* (i/o) Encoder instance */ 
short *encoded data, /* (0) The encoded bytes */ 
short *data /* (i) The signal block to encode*/ 


float block[BLOCKL MAX]; 
int k; 


/* convert signal to float */ 


for (k=0; k<iLBCenc_inst->blockl; k++) 
block[k] = (float)data[k]; 


/* do the actual encoding */ 


iLBC encode((unsigned char *)encoded data, block, iLBCenc inst); 


return (iLBCenc inst->no of bytes); 


/ * Lu —— ———— Rec ——É— T — — D —————————————— ED * 
* Decoder interface function 
A A A n EL */ 
short decode( /* (o) Number of decoded samples */ 
iLBC Dec Inst t *iLBCdec inst, /* (i/o) Decoder instance */ 
short *decoded data, /* (o) Decoded signal block*/ 
short *encoded data, /* (i) Encoded bytes */ 
short mode /* (i) O=PL, 1=Normal */ 
)t 
int k; 


float decblock[BLOCKL MAX], dtmp; 
/* check if mode is valid */ 


if (mode<0 || mode>1) ( 
printf ("XnERROR - Wrong mode - 0, 1 allowed\n"); exit(3);] 


/* do actual decoding of block */ 


iLBC decode (decblock, (unsigned char *)encoded data, 
iLBCdec inst, mode); 


/* convert to short */ 
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for (k=0; k<iLBCdec inst->blockl; k++)( 
dtmp-decblock[k]; 


if (dtmp«MIN SAMPLE) 
dtmp-MIN SAMPLE; 

else if (dtmp»MAX SAMPLE) 
dtmp-MAX SAMPLE; 

decoded data[k] = (short) dtmp; 


return (iLBCdec inst->blockl); 


m-l ee č ULL A L ba A Eee I EI * 
Main program to test iLBC encoding and decoding 
Usage: 
exefile name.exe <infile> <bytefile> <outfile> <channel> 
<infile> : Input file, speech for encoder (16-bit pcm file) 
<bytefile> : Bit stream output from the encoder 
<outfile> : Output file, decoded speech (16-bit pcm file) 
<channel> : Bit error file, optional (16-bit) 
1 - Packet received correctly 


0 - Packet Lost 


int main(int argc, char* argv[]) 


/* Runtime statistics */ 


float starttime; 
float runtime; 
float outtime; 


FILE *ifileid, *efileid, *ofileid, *cfileid; 

short data[BLOCKL MAX]; 

short encoded data[ILBCNOOFWORDS MAX], decoded data[BLOCKL MAX]; 
int len; 

short pli, mode; 

int blockcount - 0; 

int packetlosscount - 0; 


/* Create structs */ 
iLBC Enc Inst t Enc Inst; 
iLBC Dec Inst t Dec Inst; 
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/* get arguments and open files */ 


if ((argc!=5) && (argc!=6)) { 
fprintf(stderr, 


fprintf(stderr, 
n $s «20,30» input encoded decoded (channel)inin", 


argv[0]); 
fprintf(stderr, 
" mode : Frame size for the encoding/decoding Wn"); 


fprintf(stderr, 

" 20 - 20 msn"); 

fprintf(stderr, 

bi 30 - 30 ms\n"); 

fprintf(stderr, 

" input : Speech for encoder (16-bit pcm file)\n"); 
fprintf(stderr, 

" encoded : Encoded bit stream\n"); 

fprintf(stderr, 

n decoded : Decoded speech (16-bit pcm file)\n"); 
fprintf(stderr, 

" channel : Packet loss pattern, optional (16-bit)\n"); 
fprintf(stderr, 

n 1 - Packet received correctlyln"); 
fprintf(stderr, 

" 0 - Packet Lost\n"); 

fprintf(stderr, 


} 


mode=atoi (argv[1]); 


if (mode != 20 && mode != 30) { 
fprintf (stderr, "Wrong mode $s, must be 20, or 30\n", 
argv[1]); 
exit (2); 
} 
if ( (ifileid-fopen(argv[2],"rb")) == NULL) ( 
fprintf (stderr, "Cannot open input file %s\n", argv[2]); 
exit (2);) 
if ( (efileid-fopen(argv[3],"wb")) == NULL) ( 


fprintf(stderr, "Cannot open encoded file %s\n", 
argv[3]); exit(1);) 
if ( (ofileid=fopen(argv[4],"wb")) == NULL) { 
fprintf(stderr, "Cannot open decoded file %s\n", 
argv[4]); exit(1);) 
if (argc==6) { 
if( (cfileid=fopen(argv[5],"rb")) == NULL) { 
fprintf(stderr, "Cannot open channel file %s\n", 
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argv[5]); 
exit (1); 
} 
} else ( 
cfileid=NULL; 
) 


/* print info */ 


fprintf(stderr, "\n"); 
fprintf(stderr, 


fprintf(stderr, 

"x *\n"); 
fprintf(stderr, 

"x iLBC test program *\n"); 
fprintf(stderr, 

"x *\n"); 


fprintf(stderr, 
"x Nom); 


fprintf (stderr, 
fprintf (stderr, "\nMode : $2d ms\n", mode); 
fprintf (stderr, "Input file : Ss\n", argv[2]); 
fprintf (stderr, "Encoded file : Ss\n", argv[3]); 
fprintf (stderr, "Output file : Ss\n", argv[4]); 
if (argc==6) { 

fprintf (stderr, "Channel file : Ss\n", argv[5]); 
} 
fprintf(stderr,"\n"); 
/* Initialization */ 


initEncode(&Enc Inst, mode); 
initDecode(&Dec Inst, mode, 1); 


/* Runtime statistics */ 
starttime-clock()/(float)CLOCKS PER SEC; 
/* loop over input blocks */ 


while (fread(data,sizeof(short),Enc Inst.blockl,ifileid)-- 
Enc Inst.blockl) { 


blockcount++; 


/* encoding */ 
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fprintf(stderr, "--- Encoding block $i --- ",blockcount); 
len=encode (&Enc Inst, encoded data, data); 
fprintf(stderr, "Nr"); 


/* write byte file */ 
fwrite(encoded data, sizeof(unsigned char), len, efileid); 


/* get channel data if provided */ 
if (argc==6) { 
if (fread(&pli, sizeof(short), 1, cfileid)) ( 
if ((pli!=0)ss(pli!=1)) { 
fprintf(stderr, "Error in channel file\n"); 
exit (0); 
} 
if (pli==0) { 
/* Packet loss -> remove info from frame */ 
memset (encoded data, 0, 
sizeof (short) *ILBCNOOFWORDS MAX); 
packetlosscount++; 
} 


} else ( 
fprintf(stderr, "Error. Channel file too short\n"); 
exit (0); 
} 
} else ( 
pli=1; 
) 


/* decoding */ 
fprintf(stderr, "--- Decoding block %i --- ",blockcount); 


len-decode(&Dec Inst, decoded data, encoded data, pli); 
fprintf(stderr, "Nr"); 


/* write output file */ 


fwrite (decoded_data, sizeof (short), len, ofileid); 


} 


/* Runtime statistics */ 


runtime = (float) (clock () /(float)CLOCKS PER SEC-starttime); 
outtime = (float) ((float)blockcount* (float)mode/1000.0); 
printf ("XnXnLength of speech file: %.1f s\n", outtime); 
printf ("Packet loss : %.1£%%3\n", 


100.0* (float) packetlosscount/ (float) blockcount) ; 
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printf("Time to run iLBC 
printf(" 1f s ($.1f $$ 
(100*runtime/outtime)); 


SÅ 


2 
6. 


/* close files */ 


fclose(ifileid); 
if (argc==6) ( 
fclose(cfileid); 


fclose(efileid); 


} 


return(0); 


Internet Low Bit Rate Codec 


of realtime)inin", 


December 2004 


runtime, 


fclose(ofileid); 


A.2.  iLBC encode.h 
(kok k kok k kok k kk K kok kok K kk K kk K k kk KC Ck K k XK K KC OK KKK KKK ck kck ck k ká OK 
iLBC Speech Coder ANSI-C Source Code 
iLBC encode.h 
Copyright (C) The Internet Society (2004). 
All Rights Reserved. 
KKKKKKKKK X ká X kc k Ck kk kCk ck kck ck k kk Ck kc k ck kc k ck kck ck K kc k k kc k ck KKK kck ck kck ck kck ck RARA ke kk / 
#ifndef _ iLBC ILBCENCODE H 
#define _ iLBC ILBCENCODE H 
#include "iLBC define.h" 
short initEncode( /* (o) Number of bytes 
encoded */ 
iLBC Enc Inst t *iLBCenc inst, /* (i/o) Encoder instance */ 
int mode /* (i) frame size mode */ 
); 
void iLBC encode( 
unsigned char *bytes, /* (0) encoded data bits iLBC */ 
float *block, /* (o) speech vector to 
encode */ 
iLBC Enc Inst t *iLBCenc inst /* (i/o) the general encoder 
state */ 
); 
#endif 
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iLBC Speech Coder ANSI-C Source Code 


iLBC | 


Copyright 


encode.c 


(C) 


All Rights Reserved. 


The Internet Society 


(2004). 


KKKKKK k ká X kk X kk kk kCk ck kc k ck KKK Ck kc k ck kc k K k kck ck k kc k ck kck ck kck ck J 


#include 
#include 
#include 


#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 


short initEncode( 


iLBC Enc Inst t *iLBCenc inst, 
int mode 


iLBCenc inst->mode = 
(mode==30) ( 

iLBCenc inst->blockl = 
iLBCenc inst->nsub = 
iLBCenc inst->nasub = 
iLBCenc inst->lpc n = 
iLBCenc inst->no of bytes = NO OF BYTES 30MS; 
iLBCenc inst->no of words = 


if 


Andersen, 
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<math.h> 
<stdlib.h> 
<string.h> 


"iLBC define.h" 
"LPCencode.h" 
"FrameClassify.h" 
"StateSearchW.h" 
"StateConstructW.h" 
"helpfun.h" 
"constants.h" 
"packing.h" 
"iCBSearch.h" 
"iCBConstruct.h" 
"hpInput.h" 
"anaFilter.h" 
"syntFilter.h" 


/* 


mode; 


Experimental 


(o) Number of bytes 
encoded */ 
(i/o) Encoder instance */ 


frame size mode */ 


BLOCKL 30MS; 
NSUB 30MS; 
NASUB 30MS; 
LPC N 30MS; 


NO OF WORDS 30MS; 
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iLBCenc inst->state short len=STATE SHORT LEN 30MS; 
/* ULP init */ 
iLBCenc inst->ULP inst=&ULP 30msTbl; 

) 

else if (mode==20) ( 
iLBCenc inst->blockl = BLOCKL 20MS; 
iLBCenc inst->nsub = NSUB 20MS; 
iLBCenc inst->nasub = NASUB 20MS; 
iLBCenc inst-»lpc n = LPC N 20MS; 
iLBCenc inst->no of bytes = NO OF BYTES 20MS; 
iLBCenc inst->no of words = NO OF WORDS 20MS; 
iLBCenc inst->state short len=STATE SHORT LEN 20MS; 
/* ULP init */ 
iLBCenc inst->ULP inst=&ULP 20msTbl; 

} 

else ( 
exit (2); 

} 


memset ((*iLBCenc_inst).anaMem, 0, 

LPC_FILTERORDER* sizeof (float) ); 
memcpy((*iLBCenc inst).lsfold, lsfmeanTbl, 

LPC FILTERORDER*sizeof(float)); 
memcpy((*iLBCenc inst).lsfdeqold, lsfmeanTbl, 

LPC FILTERORDER*sizeof(float)); 
memset((*iLBCenc inst).lpc buffer, O0, 

(LPC LOOKBACK+BLOCKL MAX)*sizeof(float)); 
memset ((*iLBCenc inst) .hpimem, 0, 4*sizeof (float)); 


return (iLBCenc inst->no of bytes); 


/* mm z A ——————Á—————— ee A ee ee * 
* main encoder function 
R a ———Á——— Sr S E a <= P SL S a E SEL */ 
void iLBC encode( 
unsigned char *bytes, /* (0) encoded data bits iLBC */ 
float *block, /* (0) speech vector to 
encode */ 
iLBC Enc Inst t *iLBCenc inst /* (i/o) the general encoder 
state */ 


float data[BLOCKL MAX]; 
float residual[BLOCKL MAX], reverseResidual[BLOCKL MAX]; 


int start, idxForMax, idxVec[STATE LEN]; 
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float reverseDecresidual[BLOCKL MAX], mem[CB MEML]; 
int n, k, meml gotten, Nfor, Nback, i, pos; 
int gain index[CB NSTAGES*NASUB MAX], 
extra gain index[CB NSTAGES]; 
int cb index[CB NSTAGES*NASUB MAX],extra cb index[CB NSTAGES]; 
int lsf i[LSF NSPLIT*LPC N MAX]; 
unsigned char *pbytes; 
int diff, start pos, state first; 
float enl, en2; 
int index, ulp, firstpart; 
int subcount, subframe; 
float weightState[LPC FILTERORDER]; 
float syntdenum[NSUB MAX* (LPC FILTERORDER+1)]; 
float weightdenum[NSUB MAX* (LPC FILTERORDER+1) 1; 
float decresidual [BLOCKL MAX]; 


/* high pass filtering of input signal if such is not done 
prior to calling this function */ 


hpInput (block, iLBCenc inst->blockl, 
data, (*iLBCenc inst) .hpimem) ; 


/* otherwise simply copy */ 
/*memcpy (data, block, iLBCenc inst-»blockl*sizeof(float));*/ 
/* LPC of hp filtered input data */ 


LPCencode (syntdenum, weightdenum, lsf i, data, iLBCenc inst); 


/* inverse filter to get residual */ 


for (n=0; n<iLBCenc inst->nsub; n++) ( 
anaFilter(&data[n*SUBL], &syntdenum[n* (LPC FILTERORDER+1)], 
SUBL, &residual[n*SUBL], iLBCenc inst->anaMem); 
} 


/* find state location */ 
start = FrameClassify(iLBCenc inst, residual); 


/* check if state should be in first or last part of the 
two subframes */ 


diff = STATE LEN - iLBCenc inst->state short len; 
enl = 0; 
= (start-1)*SUBL; 
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for (i = 0; i < iLBCenc inst->state short len; i++) ( 
enl += residual [index+i]*residual [index+i]; 


(start-1)*SUBL+diff; 
for (i = 0; i < iLBCenc inst->state short len; i++) ( 
en2 += residual [index+i]*residual [index+i]; 


if (enl > en2) ( 
state first = 1; 


start pos = (start-1)*SUBL; 
} else ( 
state first = 0; 
start pos = (start-1)*SUBL + diff; 


} 

/* scalar quantization of state */ 

StateSearchW(iLBCenc inst, sresidual [start pos], 
&syntdenum[(start-1)* (LPC FILTERORDER+1)], 
&weightdenum[(start-1)* (LPC FILTERORDER+1)], &idxForMax, 
idxVec, iLBCenc inst->state short len, state first); 

StateConstructW(idxForMax, idxVec, 
&syntdenum[(start-1)* (LPC FILTERORDER+1)], 
udecresidual [start pos], iLBCenc inst->state short len); 

/* predictive quantization in state */ 

if (state first) ( /* put adaptive part in the end */ 


/* setup memory */ 


memset (mem, 0, 


(CB MEML-iLBCenc inst->state short len)*sizeof(float)); 


memcpy (mem+CB MEML-iLBCenc inst->state short len, 
decresidual+start pos, 
iLBCenc inst->state short len*sizeof(float)); 
memset (weightState, 0, LPC FILTERORDER*sizeof(float)); 


/* encode sub-frames */ 


iCBSearch(iLBCenc inst, extra cb index, extra gain index, 
&residual[start pos+iLBCenc inst->state short len], 
mem+CB MEML-stMemLTbl, 
stMemLTbl, diff, CB NSTAGES, 
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&weightdenum[start* (LPC FILTERORDER+1)], 
weightState, 0); 


/* construct decoded vector */ 


iCBConstruct ( 
udecresidual [start pos+iLBCenc inst->state short len], 
extra cb index, extra gain index, 
mem+CB_MEML-stMemLTbl, 
stMemLTbl, diff, CB NSTAGES); 


} 
else { /* put adaptive part in the beginning */ 


/* create reversed vectors for prediction */ 
for (k=0; k<diff; k++) ( 
reverseResidual[k] = residual[ (start+1) *SUBL-1 


— (k+iLBCenc inst->state short len)]; 
} 


/* setup memory */ 


meml gotten = iLBCenc inst->state short len; 
for (k=0; k<meml gotten; k++) ( 
mem[CB MEML-1-k] = decresidual [start pos + kl; 


} 
memset (mem, 0, (CB MEML-k)*sizeof (float) ); 
memset (weightState, 0, LPC FILTERORDER*sizeof(float)); 


/* encode sub-frames */ 


iCBSearch (iLBCenc inst, extra cb index, extra gain index, 
reverseResidual, mem+CB MEML-stMemLTbl, stMemLTbl, 
diff, CB NSTAGES, 
&weightdenum[ (start-1)* (LPC FILTERORDER+1)], 
weightState, 0); 


/* construct decoded vector */ 

iCBConstruct (reverseDecresidual, extra cb index, 
extra gain index, mem+CB MEML-stMemLTbl, stMemLTbl, 
diff, CB NSTAGES); 


/* get decoded residual from reversed vector */ 


for (k=0; k«diff; k++) ( 
decresidual[start pos-1-k] = reverseDecresidual[k]; 
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} 


/* counter for predicted sub-frames */ 
subcount=0; 
/* forward prediction of sub-frames */ 


Nfor = iLBCenc inst->nsub-start-1; 


if ( Nfor > 0) { 
/* setup memory */ 


memset (mem, 0, (CB MEML-STATE LEN) *sizeof (float)); 

memcpy (mem+CB MEML-STATE LEN, decresidual+(start-1) *SUBL, 
STATE LEN*sizeof (float)); 

memset (weightState, 0, LPC FILTERORDER*sizeof(float)); 


/* loop over sub-frames to encode */ 
for (subframe-0; subframe<Nfor; subframe++) ( 
/* encode sub-frame */ 


iCBSearch (iLBCenc inst, cb index+subcount*CB NSTAGES, 

gain index+subcount*CB NSTAGES, 
&residuall[(start+l+subframe) *SUBL], 
mem+CB MEML-memLfTbl[subcount], 
memLfTbl[subcount], SUBL, CB NSTAGES, 
&weightdenum[ (start+1+subframe) * 

(LPC FILTERORDER+1)], 
weightState, subcount+1); 


/* construct decoded vector */ 


iCBConstruct (&decresidual[ (start+1+subframe) *SUBL], 
cb index+subcount*CB NSTAGES, 
gain index+subcount*CB NSTAGES, 
mem+CB MEML-memLfTbl[subcount], 
memLfTbl[subcount], SUBL, CB NSTAGES); 


/* update memory */ 


memcpy (mem, mem+SUBL, (CB MEML-SUBL) *sizeof (float)); 
memcpy (mem+CB MEML-SUBL, 
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&decresiduall[(start+l+subframe) *SUBL], 
SUBL*sizeof(float)); 
memset (weightState, 0, LPC FILTERORDER*sizeof(float)); 


subcount++; 


/* backward prediction of sub-frames */ 


Nback = start-1; 


if ( Nback > 0) { 
/* create reverse order vectors */ 


for (n=0; n<Nback; n++) ( 
for (k=0; k<SUBL; k++) ( 
reverseResidual [n*SUBL+k] = 
residual [ (start-1) *SUBL-1-n*SUBL-k]; 
reverseDecresidual [n*SUBL+k] = 
decresidual[(start-1)*SUBL-1-n*SUBL-k]; 


} 
/* setup memory */ 


meml gotten = SUBL*(iLBCenc_inst->nsub+1-start); 


if ( meml gotten > CB MEML ) { 
meml gotten=CB MEML; 
) 
for (k=0; k<meml gotten; k++) { 
mem[CB MEML-1-k] = decresidual[(start-1)*SUBL + kl]; 
) 


memset (mem, 0, (CB MEML-k)*sizeof(float)); 

memset (weightState, 0, LPC FILTERORDER*sizeof(float)); 
/* loop over sub-frames to encode */ 

for (subframe-0; subframe<Nback; subframe++) { 


/* encode sub-frame */ 


iCBSearch(iLBCenc inst, cb index+subcount*CB NSTAGES, 
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gain index+subcount*CB NSTAGES, 
&reverseResidual[subframe*SUBL], 
mem+CB MEML-memLfTbl[subcount], 


memLfTbl[subcount], SUBL, CB NSTAGES, 


&weightdenum[(start-2-subframe)* 
(LPC FILTERORDER+1)], 


weightState, subcount+1); 


/* construct decoded vector */ 


December 2004 


iCBConstruct (&reverseDecresidual[subframe*SUBL], 


cb index+subcount*CB NSTAGES, 
gain index+subcount*CB NSTAGES, 
mem+CB MEML-memLfTbl[subcount], 


memLfTbl[subcount], SUBL, CB NSTAGES); 


/* update memory */ 


memcpy (mem, mem+SUBL, (CB MEML-SUBL)*sizeof(float)); 
memcpy (mem+CB MEML-SUBL, 


&reverseDecresidual[subframe*SUBL], 
SUBL*sizeof(float)); 


memset (weightState, 0, LPC FILTERORDER*sizeof(float)); 


subcount++; 


} 


/* get decoded residual from reversed vector */ 


for (i=0; i<SUBL*Nback; i++) ( 
decresidual [SUBL*Nback - i - 1] = 


} 


reverseDecresidual [i]; 


/* end encoding part */ 


/* adjust index */ 
index conv enc(cb index); 


/* pack bytes */ 


pbytes-bytes; 
pos=0; 


/* loop over the 3 ULP classes */ 


for 


Andersen, 


(ulp=0; 


et al. 


ulp<3; ulp++) { 
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/* LSF */ 
for (k=0; k«LSF NSPLIT*iLBCenc inst->lpc n; k++) { 
packsplit(&lsf i[k], &firstpart, &lsf_i[k], 
iLBCenc_inst->ULP_inst->lsf bits[k][ulpl, 
iLBCenc inst->ULP inst->lsf bits[k]l[ulpl-* 
iLBCenc inst->ULP inst->1sf bits[k] [ulp+1]+ 
iLBCenc inst->ULP inst->lsf bits[k] [ulp+2]); 
dopack( &pbytes, firstpart, 
iLBCenc inst->ULP inst->lsf bits[k][ulp], &pos); 
} 


/* Start block info */ 


packsplit(&start, &firstpart, &start, 
iLBCenc inst->ULP inst->start bits[ulpl, 
iLBCenc inst->ULP inst->start bits[ulpl+ 
iLBCenc inst->ULP inst->start bits[ulp+1]+ 
iLBCenc inst->ULP inst->start bits[ulp+2]1); 
dopack( spbytes, firstpart, 
iLBCenc inst->ULP inst->start bits[ulpl, &pos); 


packsplit(&state first, &firstpart, &state first, 
iLBCenc inst->ULP inst->startfirst bits[ulpl, 
iLBCenc inst->ULP inst->startfirst bits[ulp]+ 
iLBCenc inst->ULP inst->startfirst bits[ulp+1]+ 
iLBCenc inst->ULP inst->startfirst bits[ulp-*2]); 
dopack( spbytes, firstpart, 
iLBCenc inst->ULP inst->startfirst bits[ulpl, &pos); 


packsplit(&idxForMax, &firstpart, &idxForMax, 
iLBCenc inst->ULP inst->scale bits[ulpl, 
iLBCenc inst->ULP inst->scale bits[ulpl+ 
iLBCenc inst->ULP inst->scale bits[ulp+1]+ 
iLBCenc inst->ULP inst->scale bits[ulp+2]); 
dopack( spbytes, firstpart, 
iLBCenc inst->ULP inst->scale bits[ulpl, &pos); 


for (k=0; k<iLBCenc inst->state short len; k++) ( 
packsplit (idxVec+k, &firstpart, idxVec+k, 
iLBCenc inst->ULP inst->state bitslulpl, 
iLBCenc inst->ULP inst->state bits[ulpl+ 
iLBCenc inst->ULP inst->state bits[ulp+1]+ 
iLBCenc inst->ULP inst->state bits[ulp+2]); 
dopack( spbytes, firstpart, 
iLBCenc inst->ULP inst->state bits[ulpl, &pos); 
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/* 23/22 (20ms/30ms) sample block */ 


for (k-0;k«CB NSTAGES;k++) ( 
packsplit (extra cb index+k, &firstpart, 
extra cb index+k, 
iLBCenc inst->ULP inst->extra cb index[k][ulp], 
iLBCenc inst->ULP inst->extra cb index[k] [ulp]+ 
iLBCenc inst->ULP inst->extra cb index[k] [ulp+1]+ 
iLBCenc inst->ULP inst->extra cb index[k] [ulp+2]); 
dopack( spbytes, firstpart, 
iLBCenc inst->ULP inst->extra cb index[k] [ulp], 
&pos) ; 


} 


for (k=0;k<CB NSTAGES;k++) { 
packsplit (extra gain index+k, &firstpart, 
extra gain index+k, 
iLBCenc inst->ULP inst->extra cb gain[k] [ulp], 
iLBCenc inst->ULP inst->extra cb gain[k] [ulp]+ 
iLBCenc inst->ULP inst->extra cb gain[k] [ulp+1]+ 
iLBCenc inst->ULP inst->extra cb gain[k] [ulp+2]); 
dopack( spbytes, firstpart, 
iLBCenc inst->ULP inst->extra cb gain[k] [ulp], 
&pos); 
} 


/* The two/four (20ms/30ms) 40 sample sub-blocks */ 


for (i=0; i«iLBCenc inst->nasub; i++) { 
for (k=0; k<CB NSTAGES; k++) I 

packsplit (cb index+i*CB NSTAGES+k, &firstpart, 
cb index+i*CB NSTAGES+k, 
iLBCenc inst->ULP inst->cb index[i][k][ulpl, 
iLBCenc inst->ULP inst->cb index[i] [k] [ulp]+ 
iLBCenc inst->ULP inst->cb index[i] [k] [ulp+1]+ 
iLBCenc inst->ULP inst->cb index [i] [k] [ulp+2]); 

dopack( spbytes, firstpart, 
iLBCenc inst->ULP inst->cb index[i] [k] [ulp], 
&pos) ; 


} 


for (i=0; i<iLBCenc inst->nasub; i++) ( 
for (k=0; k<CB NSTAGES; k++) I 
packsplit (gain index+i*CB NSTAGES+k, &firstpart, 
gain index+i*CB NSTAGES+k, 
iLBCenc inst->ULP inst->cb gain[i] [k] [ulp], 
iLBCenc inst->ULP inst->cb gain[i] [k] [ulp]+ 
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iLBCenc inst->ULP inst->cb gain[i] [k] [ulp+1]+ 

iLBCenc inst->ULP inst->cb gain[i] [k] [ulp+2]); 
dopack( spbytes, firstpart, 

iLBCenc inst->ULP inst->cb gain[i] [k] [ulp], 

&pos) ; 


} 
/* set the last bit to zero (otherwise the decoder 


will treat it as a lost frame) */ 
dopack( spbytes, 0, 1, &pos); 


A.4. iLBC decode.h 


[RR KKK KKK k kk k kk k kk kok k kk K kk K kk kk K k KK KKK AA KKK KKK KKK X 


iLBC Speech Coder ANSI-C Source Code 
iLBC decode.h 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK X ká X kc k Ck kc k ck kCk ck kck ck k kc k k kc k Ck k kk kck ck kck ck kck ck ck KKK kck ck kck ck kck ARA ARA | 


#ifndef __iLBC ILBCDECODE H 
#define _ iLBC ILBCDECODE H 


#include "iLBC define.h" 


short initDecode ( /* (0) Number of decoded 
samples */ 
iLBC Dec Inst t *iLBCdec inst, /* (i/o) Decoder instance */ 
int mode, /* (i) frame size mode */ 
int use enhancer /* (i) 1 to use enhancer 
O to run without 
enhancer */ 


); 


void iLBC_decode ( 
float *decblock, /* (o) decoded signal block */ 
unsigned char *bytes, /* (i) encoded signal bits */ 
iLBC Dec Inst t *iLBCdec inst, /* (i/o) the decoder state 
structure */ 
int mode /* (i) 0: bad packet, PLC, 
1: normal */ 
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); 


#endif 
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A.5.  iLBC decode.c 


(Kk k kok k kk k kk k kk k kk KKK KKK K kk K k k K KX KA KKK KKKK KKK KKK kck ck ck ck ck ck k ká kk 


iLBC Speech Coder ANSI-C Source Code 


iLBC | 


decode.c 


Copyright (C) The Internet Society 
All Rights Reserved. 


(2004). 


KOKCKCKCkCk kCk ck X ká k kk Ck kc k ck kCk ck kck ck k kc k k kc k kk KKK KKK kck ck Ck kck ck kck ck KKK kck ck RARA | 


#include <math.h> 

#include <stdlib.h> 

#include "iLBC define.h" 

#include "StateConstructW.h" 

#include "LPCdecode.h" 

#include "iCBConstruct.h" 

#include "doCPLC.h" 

#include "helpfun.h" 

#include "constants.h" 

#include "packing.h" 

#include "string.h" 

#include "enhancer.h" 

#include "hpOutput.h" 

#include "syntFilter.h" 

/* TT E = = + * 
* Initiation of decoder instance 
A a TIC "AC wu AMEN MT */ 


short initDecode( 


iLBC Dec Inst t *iLBCdec inst,  /* 
int mode, 
int use enhancer 


int, 1; 


iLBCdec inst->mode = 


Andersen, et al. 


mode; 


Experimental 


(0) Number of decoded 
samples */ 
(i/o) Decoder instance */ 
(i) frame size mode */ 
(i) 1 to use enhancer 
O to run without 
enhancer */ 
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if (mode==30) { 
iLBCdec inst->blockl = BLOCKL 30MS; 
iLBCdec inst->nsub = NSUB 30MS; 
iLBCdec inst->nasub = NASUB 30MS; 
iLBCdec inst-»lpc n = LPC N 30MS; 
iLBCdec inst->no of bytes = NO OF BYTES 30MS; 
iLBCdec inst->no of words = NO OF WORDS 30MS; 
iLBCdec inst->state short len=STATE SHORT LEN 30MS; 
/* ULP init */ 
iLBCdec inst->ULP inst=&ULP 30msTbl; 

) 

else if (mode==20) ( 
iLBCdec inst->blockl = BLOCKL 20MS; 
iLBCdec inst->nsub = NSUB 20MS; 
iLBCdec inst->nasub = NASUB 20MS; 
iLBCdec inst-»lpc n = LPC N 20MS; 
iLBCdec inst->no of bytes = NO OF BYTES 20MS; 
iLBCdec inst->no of words = NO OF WORDS 20MS; 
iLBCdec inst->state short len=STATE SHORT LEN 20MS; 
/* ULP init */ 
iLBCdec inst->ULP inst=&ULP 20msTbl; 

) 

else ( 
exit (2); 

) 


memset (iLBCdec inst->syntMem, 0, 
LPC FILTERORDER*sizeof(float)); 

memcpy ((*iLBCdec inst) .1sfdegold, lsfmeanTbl, 
LPC FILTERORDER*sizeof(float)); 


memset (iLBCdec inst->old syntdenum, 0, 
((LPC FILTERORDER + 1)*NSUB MAX) *sizeof (float)); 
for (i=0; i<NSUB MAX; i++) 
iLBCdec inst->old syntdenum[i* (LPC FILTERORDER+1)]=1.0; 


iLBCdec inst->last lag = 20; 


iLBCdec inst->prevLag = 120; 

iLBCdec inst->per = 0.0; 

iLBCdec inst->consPLICount = 0; 

iLBCdec inst->prevPLI = 0; 

iLBCdec inst->prevLpc[0] = 1.0; 

memset (iLBCdec inst->prevLpc+1,0, 
LPC_FILTERORDER* sizeof (float)); 


memset (iLBCdec inst->prevResidual, 0, BLOCKL_MAX*sizeof (float) ); 


iLBCdec_inst->seed=777; 
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memset (iLBCdec inst->hpomem, 0, 4*sizeof(float)); 


iLBCdec inst->use enhancer = use enhancer; 
memset (iLBCdec inst->enh buf, 0, ENH BUFL*sizeof (float)); 
for (i=0;i<ENH NBLOCKS TOT; i++) 

iLBCdec inst->enh period[i]=(float) 40.0; 


iLBCdec inst->prev enh pl = 0; 


return (iLBCdec inst->blockl); 


/* === * 
* frame residual decoder function (subrutine to iLBC decode) 
S LR E E BS E T E DELE Z o Z S LE ED u o E o B */ 


void Decode( 
iLBC Dec Inst t *iLBCdec inst, /* (i/o) the decoder state 
structure */ 


float *decresidual, /* (0) decoded residual frame */ 

int start, /* (i) location of start 
state */ 

int idxForMax, /* (i) codebook index for the 
maximum value */ 

int *idxVec, /* (i) codebook indexes for the 
samples in the start 
state */ 

float *syntdenum, /* (i) the decoded synthesis 
filter coefficients */ 

int *cb index, /* (i) the indexes for the 
adaptive codebook */ 

int *gain index, /* (i) the indexes for the 
corresponding gains */ 

int *extra cb index, /* (i) the indexes for the 


adaptive codebook part 
of start state */ 


int *extra gain index, /* (i) the indexes for the 
corresponding gains */ 
int state first /* (i) 1 if non adaptive part 


of start state comes 
first 0 if that part 
comes last */ 


float reverseDecresidual[BLOCKL MAX], mem[CB MEML]; 
int k, meml gotten, Nfor, Nback, i; 

int diff, start pos; 

int subcount, subframe; 
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diff = STATE LEN - iLBCdec inst->state short len; 


if (state first == 1) { 
start pos = (start-1)*SUBL; 
} else ( 
start pos 


(start-1)*SUBL + diff; 
} 


/* decode scalar part of start state */ 


StateConstructW(idxForMax, idxVec, 
&syntdenum[(start-1)* (LPC FILTERORDER+1) I, 
&decresidual[start pos], iLBCdec inst->state short len); 


if (state first) { /* put adaptive part in the end */ 
/* setup memory */ 


memset (mem, 0, 
(CB MEML-iLBCdec inst->state short len)*sizeof(float)); 
memcpy (mem+CB MEML-iLBCdec inst->state short len, 
decresidual+start pos, 
iLBCdec inst->state short len*sizeof(float)); 


/* construct decoded vector */ 


iCBConstruct ( 
&decresidual[start pos+iLBCdec inst->state short len], 
extra cb index, extra gain index, mem+CB MEML-stMemLTbl, 
stMemLTbl, diff, CB NSTAGES); 


} 
else {/* put adaptive part in the beginning */ 


/* create reversed vectors for prediction */ 


for (k=0; k<diff; k++) ( 
reverseDecresidual[k] = 
decresidual [ (start+1) *SUBL-1- 
(k+iLBCdec inst->state short len)]; 
} 


/* setup memory */ 


meml gotten = iLBCdec inst->state short len; 
for (k=0; k<meml gotten; k++) { 
mem[CB MEML-1-k] = decresidual [start pos + kl; 
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} 
memset (mem, 0, (CB MEML-k)*sizeof (float) ); 
/* construct decoded vector */ 
iCBConstruct (reverseDecresidual, extra cb index, 
extra gain index, mem+CB MEML-stMemLTbl, stMemLTbl, 


diff, CB NSTAGES); 


/* get decoded residual from reversed vector */ 


for (k=0; k«diff; k++) ( 
decresidual[start pos-1-k] = reverseDecresidual[k]; 


} 

/* counter for predicted sub-frames */ 
subcount=0; 

/* forward prediction of sub-frames */ 


Nfor = iLBCdec inst->nsub-start-1; 


if ( Nfor > 0 ){ 
/* setup memory */ 


memset (mem, 0, (CB MEML-STATE LEN) *sizeof (float)); 
memcpy (mem+CB MEML-STATE LEN, decresidual+ (start-1)*SUBL, 
STATE LEN*sizeof (float)); 


/* loop over sub-frames to encode */ 
for (subframe-0; subframe<Nfor; subframe++) { 
/* construct decoded vector */ 
iCBConstruct (&decresidual[ (start+1+subframe) *SUBL], 
cb index+subcount*CB NSTAGES, 
gain index+subcount*CB NSTAGES, 


mem+CB MEML-memLfTbl[subcount], 
memLfTbl[subcount], SUBL, CB NSTAGES); 


/* update memory */ 


memcpy (mem, mem+SUBL, (CB MEML-SUBL) *sizeof (float)); 
memcpy (mem+CB MEML-SUBL, 
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&decresidual[(start+l+subframe)*SUBL], 
SUBL*sizeof (float) ); 


subcount++; 


} 
/* backward prediction of sub-frames */ 
Nback = start-1; 
if ( Nback > 0) { 
/* setup memory */ 
meml gotten = SUBL*(iLBCdec_inst->nsub+1-start); 


if ( meml gotten > CB MEML ) { 
meml gotten=CB MEML; 
) 
for (k=0; k<meml gotten; k++) { 
mem[CB MEML-1-k] = decresidual[(start-1)*SUBL + k]; 


) 
memset (mem, 0, (CB MEML-k)*sizeof(float)); 


/* loop over subframes to decode */ 
for (subframe-0; subframe<Nback; subframe++) ( 
/* construct decoded vector */ 
iCBConstruct (&reverseDecresidual[subframe*SUBL], 
cb index+subcount*CB NSTAGES, 
gain index+subcount*CB NSTAGES, 


mem+CB MEML-memLfTbl[subcount], memLfTbl[subcount], 
SUBL, CB NSTAGES); 


/* update memory */ 


memcpy (mem, mem+SUBL, (CB MEML-SUBL)*sizeof(float)); 

memcpy (mem+CB MEML-SUBL, 
&reverseDecresidual[subframe*SUBL], 
SUBL*sizeof(float)); 


subcount++; 
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/* get decoded residual from reversed vector */ 


for (i=0; i<SUBL*Nback; i++) 
decresidual [SUBL*Nback - i - 1] = 
reverseDecresidual [i]; 


/* Salni REE a E ES L E E S ES == a E 5 LE ES * 
* main decoder function 
o ss ss n a ee Sees */ 
void iLBC_decode ( 
float *decblock, /* (o) decoded signal block */ 
unsigned char *bytes, /* (i) encoded signal bits */ 


iLBC Dec Inst t *iLBCdec inst, /* (i/o) the decoder state 
structure */ 
int mode /* (i) 0: bad packet, PLC, 
1: normal */ 


float data [BLOCKL MAX]; 
float lsfdeq[LPC FILTERORDER*LPC N MAX]; 
float PLCresidual[BLOCKL MAX], PLClpc[LPC_FILTERORDER + 1]; 
float zeros[BLOCKL MAX], one[LPC FILTERORDER + 1]; 
int k, i, start, idxForMax, pos, lastpart, ulp; 
int lag, ilag; 
float cc, maxcc; 
int idxVec[STATE LEN]; 
int check; 
int gain index[NASUB MAX*CB NSTAGES], 
extra gain index[CB NSTAGES]; 
int cb index[CB NSTAGES*NASUB MAX], extra cb index[CB NSTAGES]; 
int lsf i[LSF NSPLIT*LPC N MAX]; 
int state first; 
int last bit; 
unsigned char *pbytes; 
float weightdenum[(LPC FILTERORDER + 1)*NSUB MAX]; 
int order plus one; 
float syntdenum[NSUB MAX* (LPC FILTERORDER+1)]; 
float decresidual [BLOCKL MAX]; 


if (mode>0) { /* the data are good */ 
/* decode data */ 


pbytes=bytes; 
pos=0; 
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/* Set everything to zero before decoding */ 


for (k=0; k«LSF NSPLIT*LPC N MAX; k++) ( 
lsf i[k]^0; 

} 

start=0; 

state first=0; 

idxForMax=0; 

for (k=0; k<iLBCdec inst->state short len; k++) ( 
idxVec[k]=0; 


for (k=0; k<CB NSTAGES; k++) ( 
extra cb index[k]=0; 


for (k=0; k«CB NSTAGES; k++) { 
extra gain index[k]=0; 


for (i=0; i«iLBCdec inst->nasub; i++) { 
for (k=0; k<CB NSTAGES; k++) ( 
cb index[i*CB NSTAGES+k]=0; 
} 


for (i=0; i<iLBCdec inst->nasub; i++) ( 
for (k=0; k<CB NSTAGES; k++) { 
gain index [i*CB NSTAGES+k]=0; 


) 
/* loop over ULP classes */ 
for (ulp=0; ulp<3; ulp++) ( 


/* LSF */ 
for (k=0; k<LSF NSPLIT*iLBCdec inst->lpc n; k++) { 
unpack( &pbytes, &lastpart, 
iLBCdec inst->ULP inst->lsf bits[k][ulp], &pos); 
packcombine(&lsf i[k], lastpart, 
iLBCdec inst->ULP inst->lsf bits[k] [ulp]); 
) 


/* Start block info */ 


unpack( &pbytes, &lastpart, 

iLBCdec inst->ULP inst->start bits[ulpl, &pos); 
packcombine (sstart, lastpart, 

iLBCdec inst->ULP inst->start bits[ulp]l); 


unpack( &pbytes, &lastpart, 
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iLBCdec inst->ULP inst->startfirst bits[ulpl, &pos); 
packcombine(&state first, lastpart, 
iLBCdec inst->ULP inst->startfirst bits[ulp]l); 


unpack( &pbytes, &lastpart, 

iLBCdec inst->ULP inst->scale bits[ulpl, &pos); 
packcombine(&idxForMax, lastpart, 

iLBCdec inst->ULP inst->scale bits[ulp]l); 


for (k=0; k<iLBCdec inst->state short len; k++) ( 
unpack( &pbytes, &lastpart, 
iLBCdec inst->ULP inst->state bits[ulpl, &pos); 
packcombine(idxVec+k, lastpart, 
iLBCdec inst->ULP inst->state bits[ulp]l); 
} 


/* 23/22 (20ms/30ms) sample block */ 


for (k=0; k«CB NSTAGES; k++) I 
unpack( &pbytes, &lastpart, 
iLBCdec inst->ULP inst->extra cb index[k][ulpl, 
&pos); 
packcombine (extra cb index+k, lastpart, 
iLBCdec inst->ULP inst->extra cb index[k]l[ulpl); 


for (k=0; k«CB NSTAGES; k++) I 
unpack( &pbytes, &lastpart, 
iLBCdec inst->ULP inst->extra cb gain[k] [ulp], 
&pos); 
packcombine (extra gain index+k, lastpart, 
iLBCdec inst->ULP inst->extra cb gain[k]l[ulpl); 
} 


/* The two/four (20ms/30ms) 40 sample sub-blocks */ 


for (i=0; i<iLBCdec inst->nasub; i++) { 
for (k=0; k«CB NSTAGES; k++) { 
unpack( &pbytes, &lastpart, 
iLBCdec inst->ULP inst->cb index[i] [k] [ulp], 
&pos) ; 
packcombine(cb index+i*CB NSTAGES+k, lastpart, 
iLBCdec inst->ULP inst->cb index[i][k]l[ulp]); 


} 


for (i=0; i<iLBCdec inst->nasub; i++) ( 
for (k=0; k<CB NSTAGES; k++) ( 
unpack( &pbytes, &lastpart, 
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iLBCdec inst->ULP inst->cb gain[i] [k] [ulp], 
&pos); 

packcombine (gain index+i*CB NSTAGES+k, lastpart, 
iLBCdec inst->ULP inst->cb gain[i][k][ulp]); 


} 
} 
/* Extract last bit. If it is 1 this indicates an 
empty/lost frame */ 
unpack( spbytes, slast bit, 1, &pos); 


/* Check for bit errors or empty/lost frames */ 
if (start<l) 


mode = 0; 
if (iLBCdec inst->mode==20 && start>3) 
mode = 0; 
if (iLBCdec inst->mode==30 && start>5) 
mode = 0; 
if (last bit--1) 
mode = 0; 
if (mode--1) ( /* No bit errors was detected, 


continue decoding */ 


/* adjust index */ 
index conv. dec(cb index); 


/* decode the lsf */ 


SimplelsfDEQ(lsfdeq, lsf i, iLBCdec inst->lpc n); 
check=LSF_check (lsfdeq, LPC FILTERORDER, 
iLBCdec inst-»5lpc n); 
DecoderInterpolateLSF (syntdenum, weightdenum, 
lsfdeq, LPC FILTERORDER, iLBCdec inst); 


Decode(iLBCdec inst, decresidual, start, idxForMax, 
idxVec, syntdenum, cb index, gain index, 
extra cb index, extra gain index, 
state first); 


/* preparing the plc for a future loss! */ 


doThePLC(PLCresidual, PLClpc, 0, decresidual, 
syntdenum + 
(LPC FILTERORDER + 1)* (iLBCdec inst->nsub - 1), 
(*iLBCdec inst).last lag, iLBCdec inst); 
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memcpy (decresidual, PLCresidual, 
iLBCdec inst->blockl*sizeof (float) ); 


} 


if (mode == 0) 1 
/* the data is bad (either a PLC call 
* was made or a severe bit error was detected) 


Kf 
/* packet loss conceal */ 
memset (zeros, 0, BLOCKL MAX*sizeof(float)); 


one [0] = 1; 
memset (one+1, 0, LPC FILTERORDER*sizeof (float)); 


start=0; 


doThePLC (PLCresidual, PLClpc, 1, zeros, one, 
(*iLBCdec inst) .last lag, iLBCdec inst); 
memcpy (decresidual, PLCresidual, 
iLBCdec inst->blockl*sizeof (float)); 


order plus one = LPC FILTERORDER + 1; 
for (i = 0; i < iLBCdec inst->nsub; i++) ( 
memcpy (syntdenum+ (i*order plus one), PLClpc, 
order plus one*sizeof (float) ); 


} 
if (iLBCdec inst->use enhancer == 1) { 
/* post filtering */ 


iLBCdec inst->last lag = 
enhancerInterface (data, decresidual, iLBCdec inst); 


/* synthesis filtering */ 


if (iLBCdec inst->mode==20) ( 
/* Enhancer has 40 samples delay */ 
i20; 
syntFilter(data + i*SUBL, 
iLBCdec inst->old syntdenum + 
(i+iLBCdec inst->nsub-1)* (LPC FILTERORDER+1), 
SUBL, iLBCdec inst->syntMem); 
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for (i-1; i < iLBCdec inst->nsub; i++) { 
syntFilter(data + i*SUBL, 
syntdenum + (i-1)* (LPC FILTERORDER+1), 
SUBL, iLBCdec inst->syntMem); 
} 
} else if (iLBCdec inst->mode==30) { 
/* Enhancer has 80 samples delay */ 
for (i20; i < 2; i++) { 
syntFilter(data + i*SUBL, 
iLBCdec inst->old syntdenum + 
(i+iLBCdec inst->nsub-2)* (LPC FILTERORDER+1), 
SUBL, iLBCdec inst->syntMem); 
} 
for (i=2; i < iLBCdec inst->nsub; i++) ( 
syntFilter(data + i*SUBL, 
syntdenum + (i-2)*(LPC FILTERORDER+1), SUBL, 
iLBCdec inst->syntMem); 


} 
} else ( 


/* Find last lag */ 

lag = 20; 

maxcc = xCorrCoef(&decresidual[BLOCKL MAX-ENH BLOCKL], 
&decresidual[BLOCKL MAX-ENH BLOCKL-lag], ENH BLOCKL); 


for (ilag-21; ilag<120; ilag++) ( 
cc = xCorrCoef(&decresidual[BLOCKL MAX-ENH BLOCKL], 
&decresidual[BLOCKL MAX-ENH BLOCKL-ilag], 
ENH BLOCKL); 


if (cc > maxcc) ( 
maxcc = cc; 
lag = ilag; 

} 


} 
iLBCdec inst->last lag = lag; 


/* copy data and run synthesis filter */ 


memcpy (data, decresidual, 
iLBCdec inst->blockl*sizeof (float)); 
for (i=0; i < iLBCdec inst->nsub; i++) ( 
syntFilter(data + i*SUBL, 
syntdenum + i*(LPC FILTERORDER+1), SUBL, 
iLBCdec inst->syntMem); 
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} 


/* high pass filtering on output if desired, otherwise 
copy to out */ 


hpOutput (data, iLBCdec inst->blockl, 
decblock, iLBCdec inst->hpomem); 


/* memcpy (decblock, data, iLBCdec inst->blockl*sizeof (float));*/ 
memcpy (iLBCdec inst->old syntdenum, syntdenum, 

iLBCdec inst->nsub* (LPC_FILTERORDER+1)*sizeof (float) ); 
iLBCdec inst->prev enh pl=0; 


if (mode==0) ( /* PLC was used */ 
iLBCdec inst->prev enh pl=1; 


A.6.  iLBC define.h 
[KK KKK kok k k kk k kk K kk kok k kk K kk K k kk KKK OK KK KK ck kck ck X 
iLBC Speech Coder ANSI-C Source Code 
iLBC define.h 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK KKK X k Ck Ck kc k Ck kCk ck k kc k k kc k Ck kk kCk ck KKK KKK k kc k K KKK kck ck KKK KKK J 


#include <string.h> 


#ifndef __iLBC ILBCDEFINE H 
#define __iLBC ILBCDEFINE H 


/* general codec settings */ 


#define FS (float) 8000.0 
#define BLOCKL 20MS 160 

+define BLOCKL 30MS 240 

#define BLOCKL MAX 240 

+define NSUB 20MS 4 

+define NSUB 30MS 6 

+define NSUB MAX 6 

+define NASUB 20MS 2 
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#define 
#define 
#define 
#define 
#define 
#define 


/* LPC 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


/* cb s 


+define 
#define 
#define 
#define 
#define 
#define 
#define 


/* enha 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
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NASUB_30MS 

NASUB_MAX 

SUBL 

STATE LEN 

STATE SHORT LEN 30MS 
STATE SHORT LEN 20MS 


40 


settings */ 


LPC FILTERORDER 
LPC CHIRP SYNTDENUM 


10 
(float)0.9025 


December 2004 


LPC_CHIRP_WEIGHTDENUM (float)0.4222 
LPC_LOOKBACK 60 
LPC_N_20MS 1 
LPC_N_30MS 2 
LPC_N_MAX 2 
LPC_ASYMDIFF 20 
LPC_BW (float) 60.0 
LPC_WN (float)1.0001 
LSF_NSPLIT 3 
LSF NUMBER OF STEPS 4 
LPC HALFORDER (LPC FILTERORDER/2) 
ettings */ 
CB NSTAGES 3 
CB EXPAND 2 
CB MEML 147 
CB FILTERLEN 2*4 
CB HALFFILTERLEN 4 
CB RESRANGE 34 
CB MAXGAIN (float)1.3 
ncer */ 
ENH_BLOCKL 80 /* block length */ 
ENH BLOCKL HALF (ENH BLOCKL/2) 
ENH HL 3 /* 2*ENH HL+1 is number blocks 
in said second sequence */ 
ENH SLOP 2 /* max difference estimated and 
correct pitch period */ 
ENH PLOCSL 20 /* pitch-estimates and pitch- 
locations buffer length */ 
ENH OVERHANG 2 
ENH UPSO 4 /* upsampling rate */ 
ENH FLO 3  /* 2*FLO+1 is the length of 
each filter */ 
ENH VECTL (ENH BLOCKL+2*ENH FLO) 
et ala Experimental 
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+define ENH CORRDIM ( 
+define ENH NBLOCKS ( 
+define ENH NBLOCKS EXTRA 5 
+define ENH NBLOCKS TOT 8 


2*ENH SLOP+1) 
BLOCKL MAX/ENH BLOCKL) 


/* ENH NBLOCKS + 

ENH NBLOCKS EXTRA */ 
+define ENH BUFL (ENH NBLOCKS TOT) *ENH BLOCKL 
#define ENH ALPHAO (float) 0.05 


/* Down sampling */ 


+define FILTERORDER DS 7 
#define DELAY DS 3 
+define FACTOR DS 2 


/* bit stream defs */ 


+define NO OF BYTES 20MS 38 
+define NO OF BYTES 30MS 50 
+define NO OF WORDS 20MS 19 
#define NO OF WORDS 30MS 25 
#define STATE BITS 3 
#define BYTE LEN 8 
#define ULP CLASSES 3 


/* help parameters */ 


#define FLOAT MAX (float)1.0e37 

#define EPS (float)2.220446049250313e-016 
#define PI (float)3.14159265358979323846 
#define MIN SAMPLE -32768 

#define MAX SAMPLE 32767 

#define TWO_PI (float) 6.283185307 

#define PI2 (float) 0.159154943 


/* type definition encoder instance */ 
typedef struct iLBC_ULP_Inst_t_ { 
int lsf_bits[6] [ULP CLASSES+2]; 
int start bits[ULP CLASSES+2]; 
int startfirst bits[ULP CLASSES+2]; 
int scale bits [ULP CLASSES+2]; 
int state bits [ULP CLASSES+2]; 
int extra cb index[CB NSTAGES] [ULP CLASSES+2]; 
int extra cb gain[CB NSTAGES] [ULP CLASSES+2]; 
int cb index[NSUB MAX] [CB NSTAGES] [ULP CLASSES+2]; 
int cb gain[NSUB MAX] [CB NSTAGES] [ULP CLASSES+2]; 
) iLBC ULP Inst t; 


/* type definition encoder instance */ 
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typedef struct iLBC Enc Inst t { 


/* flag for frame size mode */ 
int mode; 


/* basic parameters for different frame sizes */ 
int blockl; 

int nsub; 

int nasub; 

int no of bytes, no of words; 

int lpc n; 

int state short len; 

const iLBC ULP Inst t *ULP inst; 


/* analysis filter state */ 
float anaMem[LPC FILTERORDER]; 


/* old 1sf parameters for interpolation */ 
float lsfold[LPC FILTERORDER]; 
float lsfdeqold[LPC FILTERORDER]; 


/* signal buffer for LP analysis */ 
float lpc buffer[LPC LOOKBACK + BLOCKL MAX]; 


/* state of input HP filter */ 
float hpimem[4]; 


) iLBC Enc Inst t; 


/* type definition decoder instance */ 
typedef struct iLBC Dec Inst t { 


/* flag for frame size mode */ 
int mode; 


/* basic parameters for different frame sizes */ 
int blockl; 

int nsub; 

int nasub; 

int no of bytes, no of words; 

int lpc n; 

int state short len; 

const iLBC ULP Inst t *ULP inst; 


/* synthesis filter state */ 
float syntMem[LPC FILTERORDER]; 


/* old LSF for interpolation */ 
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float lsfdeqold[LPC FILTERORDER]; 


/* pitch lag estimated in enhancer and used in PLC */ 
int last lag; 


/* PLC state information */ 

int prevLag, consPLICount, prevPLI, prev enh pl; 
float prevLpc[LPC FILTERORDER+1]; 

float prevResidual[NSUB MAX*SUBL]; 

float per; 

unsigned long seed; 


/* previous synthesis filter parameters */ 
float old syntdenum[ (LPC FILTERORDER + 1)*NSUB MAX]; 


/* state of output HP filter */ 
float hpomem[4]; 


/* enhancer state information */ 
int use enhancer; 
float enh buf[ENH BUFL]; 
float enh period[ENH NBLOCKS TOT]; 

) iLBC Dec Inst t; 

endi T 

A.7.  constants.h 

(kok k kok k k kk k kk K kk kok k kk K kk K OK kk K k K KX RARA RRA ck KKK KKK X 

iLBC Speech Coder ANSI-C Source Code 


constants.h 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 
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#ifndef  iLBC CONSTANTS H 
#define __iLBC CONSTANTS H 


#include "iLBC define.h" 


/* ULP bit allocation */ 
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extern const iLBC ULP Inst t ULP 20msTbl; 
extern const iLBC ULP Inst t ULP 30msTbl; 


/* high pass filters */ 


extern float hpi zero coefsTbl[]; 
extern float hpi pole coefsTbl[]; 
extern float hpo zero coefsTbl[l; 
extern float hpo pole coefsTbl[l; 


/* low pass filters */ 
extern float lpFilt coefsTbl[l; 


/* LPC analysis and quantization */ 


extern float lpc winTbl[]; 

extern float lpc_asymwinTbl[]; 
extern float lpc_lagwinTbl[]; 
extern float lsfCbTbl[]; 

extern float lsfmeanTbl[]; 

extern int dim lsfCbTb1[]; 
extern int size 1sfCbTbl[]; 
extern float lsf weightTbl 30ms[]; 
extern float lsf weightTbl 20ms[]; 


/* state quantization tables */ 


extern float state sq3Tbl[l; 
extern float state frgqTbl[]; 


/* gain quantization tables */ 

extern float gain sq3Tbl[]; 

extern float gain sq4Tbl[]; 

extern float gain sq5Tbl[]; 

/* adaptive codebook definitions */ 
extern int search rangeTbl [5] [CB NSTAGES]; 
extern int memLfTbl[]; 

extern int stMemLTbl; 

extern float cbfiltersTbl[CB FILTERLEN]; 


/* enhancer definitions */ 


extern float polyphaserTbl[]; 
extern float enh_plocsTbl[]; 
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#endif 


A.8. constants.c 
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Copyright (C) The Internet Society (2004). 
All Rights Reserved. 
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#include "iLBC define.h" 
/* ULP bit allocation */ 
/* 20 ms frame */ 
const iLBC ULP Inst t ULP 20msTbl = { 


/* LSF */ 
{ {6,0,0,0,0}, {7,0,0,0,0}, {7,0,0,0,0}, 


{0,0,0,0,0}, {0,0,0,0,0}, {0,0,0,0,0}}, 
/* Start state location, gain and samples */ 


{2,0,0,0,0}, 

{1,0,0,0,0}, 

{6,0,0,0,0}, 

{0,1,2,0,0}, 

/* extra CB index and extra CB gain */ 

{{6,0,1,0,0}, {0,0,7,0,0}, {0,0,7,0,0}}, 

{{2,0,3,0,0}, {1,1,2,0,0}, {0,0,3,0,0}}, 

/* CB index and CB gain */ 

{ {{7,0,1,0,0}, {0,0,7,0,0}, {0,0, 
{{0,0,8,0,0}, {0,0,8,0,0}, {0,0, 
{{0,0,0,0,0}, {0,0,0,0,0}, {0,0, 
{{0,0,0,0,0}, {0,0,0,0,0}, {0,0, 


{{1,1,3,0,0}, {0,2,2,0,0}, {0,0, 
{{0,0,0,0,0}, {0,0,0,0,0}, {0,0, 
{{0,0,0,0,0}, {0,0,0,0,0}, {0,0, 


7,0,0 
8,0,0 
0,0,0 
0,0,0 
{ {{1,2,2,0,0}, Ly 000, {0,0,3,0,0}}, 
3,0,0 
0,0,0 
0,0,0 


}; 
/* 30 ms frame */ 


const iLBC ULP Inst t ULP 30msTbl = { 
/* LSF */ 
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{ {6,0,0,0,0}, 
{6,0,0,0,0}, 
/* Start state location, 


{3,0,0,0,0}, 
{1,0,0,0,0}, 
{6,0,0,0,0}, 
{0,1,2,0,0}, 


{7,0,0,0,0}, 
{7,0,0,0,0}, 
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{7,0,0,0,0}, 
{7,0,0,0,0}}, 
gain and samples */ 


/* extra CB index and extra CB gain */ 


{{4,2,1,0,0}, 
[11,1;3,0,0r, 


{0,0,7,0,0}, 
{1,1,2,0,0}, 


/* CB index and CB gain */ 


{ 


}; 


{{6,1,1,0,0}, 
{{0,7,1,0,0}, 
{{0,7,1,0,0}, 
{{0,7,1,0,0}, 
{{1,2,2,0,0}, 
{{0,2,3,0,0}, 
{{0,1,4,0,0}, 
{{0,1,4,0,0}, 


/* HP Filters */ 


{0,0,7,0,0}, 
{0,0,8,0,0}, 
{0,0,8,0,0}, 
{0,0,8,0,0}, 
LL e 0704 
{0,2,2,0,0}, 
{0,1,3,0,0}, 
{0,1,3,0,0}, 


float hpi zero coefsTbl[3] = { 
) 


(float) 0.92727436, 


}; 


float hpi pole coefsTbl [3] = { 


(float)1.0, 


}; 


(float)-1.9059465, 


float hpo zero coefsTb1[3] = { 
) 


(float)0.93980581, 


}; 


float hpo pole coefsTb1[3] = { 


(float)1.0, 


}; 


/* LP Filter */ 


(float)-1.9330735, 


(float)-1.8544941, 


(float)-1.8795834, 


{0,0,7,0,0}}, 
{0,0,3,0,0}}, 


(float) 0.9114024 


(float) 0.93589199 


float lpFilt coefsTbl[FILTERORDER DS]=( 
(float)-0.066650, 
(float)0.414063, 
(float)0.125000, 


}; 


(float)0.125000, 


(float)0.316650, 


(float)0.316650, 
(float)-0.066650 


/* State quantization tables */ 


float state sq3Tbl [8] 
(float)-3.719849, 
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(float) -2.177490, 
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(float) 0.92727436 


(float)0.93980581 


(float)-1.130005, 
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(float)-0.309692, (float)0.444214, (float)1.329712, 
(float)2.436279, (float)3.983887 
}; 


float state frgqTbl[64] = ( 


(float)1.000085, (float)1.071695, (f10at)1.140395, 
(float)1.206868, (float)1.277188, (float)1.351503, 
(float) 1.429380, (float)1.500727, (float)1.569049, 
(float) 1.639599, (float)1.707071, (float)1.781531, 
(float) 1.840799, (float)1.901550, (float) 1.956695, 
(float)2.006750, (float)2.055474, (float)2.102787, 
(float)2.142819, (float)2.183592, (float)2.217962, 
(float)2.257177, (float)2.295739, (float)2.332967, 
(float) 2.369248, (float)2.402792, (float)2.435080, 
(float) 2.468598, (float)2.503394, (float)2.539284, 
(float)2.572944, (float)2.605036, (float)2.636331, 
(float)2.668939, (float)2.698780, (float)2.729101, 
(float)2.759786, (float)2.789834, (float)2.818679, 
(float)2.848074, (float)2.877470, (float)2.906899, 
(float)2.936655, (float)2.967804, (float)3.000115, 
(float) 3.033367, (float)3.066355, (float)3.104231, 
(float)3.141499, (float)3.183012, (float) 3.222952, 
(float) 3.265433, (float)3.308441, (float) 3.350823, 
(float) 3.395275, (float)3.442793, (float)3.490801, 
(float)3.542514, (float)3.604064, (float) 3.666050, 
(float)3.740994, (float)3.830749, (float) 3.938770, 
(float) 4.101764 


}; 
/* CB tables */ 


int search rangeTbl[5] [CB_NSTAGES]={{58,58,58}, {108,44,44}, 
{108,108,108}, {108,108,108}, (108,108,108)); 

int stMemLTbl=85; 

int memLfTbl[NASUB MAX]=(147,147,147,147); 


/* expansion filter(s) */ 


float cbfiltersTbl[CB_FILTERLEN]=( 
(float)-0.034180, (float)0.108887, (float)-0.184326, 
(float)0.806152, (float)0.713379, (float)-0.144043, 
(float)0.083740, (float)-0.033691 

}; 


/* Gain Ouantization */ 


float gain sq3Tbl[8]=( 
(float)-1.000000, (float) -0.659973, (float)-0.330017, 
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(float) 0.000000, (float)0.250000, (float)0.500000, 
(float)0.750000, (float)1.00000); 


float gain sg4Tbl[16]=( 


(float)-1.049988, (float)-0.900024, (f10at)-0.750000, 
(float)-0.599976, (float)-0.450012, (float)-0.299988, 
(float)-0.150024, (float)0.000000, (float)0.150024, 
(float)0.299988, (float)0.450012, (float)0.599976, 
(float)0.750000, (float)0.900024, (float)1.049988, 
(float) 1.200012); 

float gain sq5Tbl[32]=( 
(float)0.037476, (float)0.075012, (float)0.112488, 
(float)0.150024, (float)0.187500, (float)0.224976, 
(float)0.262512, (float)0.299988, (float)0.337524, 
(float)0.375000, (float)0.412476, (float)0.450012, 
(float)0.487488, (float)0.525024, (float)0.562500, 
(float)0.599976, (float)0.637512, (float)0.674988, 
(float)0.712524, (float)0.750000, (float)0.787476, 
(float)0.825012, (float)0.862488, (float)0.900024, 
(float)0.937500, (float)0.974976, (float)1.012512, 
(float)1.049988, (float)1.087524, (float)1.125000, 
(float) 1.162476, (float)1.200012}; 


/* Enhancer - Upsamling a factor 4 (ENH_UPSO = 4) */ 
float polyphaserTbl[ENH UPSO* (2*ENH_FLO+1) ]={ 
(float)0.000000, (float)0.000000, (float)0.000000, 
(float) 1.000000, 
(float)0.000000, (float)0.000000, (float)0.000000, 
(float)0.015625, (float)-0.076904, (float)0.288330, 
(float)0.862061, 
(float)-0.106445, (float)0.018799, (float)-0.015625, 
(float)0.023682, (float)-0.124268, (float)0.601563, 
(float)0.601563, 
(float)-0.124268, (float)0.023682, (float)-0.023682, 
(float)0.018799, (float)-0.106445, (float)0.862061, 
(float)0.288330, 
(float)-0.076904, (float)0.015625, (float)-0.018799); 


float enh plocsTbl [ENH NBLOCKS TOT] = {(float)40.0, (float)120.0, 
(float)200.0, (float)280.0, (float)360.0, 
(float)440.0, (float)520.0, (float)600.0); 


/* LPC analysis and quantization */ 


int dim lsfCbTbl[LSF NSPLIT] = (3, 3, 4); 
int size lsfCbTbl[LSF NSPLIT] = (64,128,128); 
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float lsfmeanTbl [LPC FILTERORDER] = { 
(float)0.281738, (float)0.445801, (float)0.663330, 
(float)0.962524, (float)1.251831, (float)1.533081, 
(float)1.850586, (float)2.137817, (float)2.481445, 
(float)2.777344); 


float lsf weightTbl 30ms[6] = {(float) (1.0/2.0), (float)1.0, 
(float) (2.0/3.0), 
(float) (1.0/3.0), (float)0.0, (float)0.0}; 


float lsf weightTbl 20ms[4] = { (float) (3.0/4.0), (float) (2.0/4.0), 
(float) (1.0/4.0), (float) (0.0)); 


/* Hanning LPC window */ 
float lpc winTbl[BLOCKL MAX]=( 


(float) 0.000183, (float)0.000671, (float)0.001526, 
(float)0.002716, (float)0.004242, (float)0.006104, 
(float)0.008301, (float)0.010834, (float)0.013702, 
(float) 0.016907, (float)0.020416, (float)0.024261, 
(float)0.028442, (float)0.032928, (float)0.037750, 
(float)0.042877, (float)0.048309, (float)0.054047, 
(float)0.060089, (float)0.066437, (float)0.073090, 
(float)0.080017, (float)0.087219, (float)0.094727, 
(float)0.102509, (float)0.110535, (float)0.118835, 
(float)0.127411, (float)0.136230, (float)0.145294, 
(float)0.154602, (float)0.164154, (float)0.173920, 
(float)0.183899, (float)0.194122, (float)0.204529, 
(float)0.215149, (float)0.225952, (float)0.236938, 
(float)0.248108, (float)0.259460, (float)0.270966, 
(float)0.282654, (float)0.294464, (float)0.306396, 
(float)0.318481, (float)0.330688, (float)0.343018, 
(float)0.355438, (float)0.367981, (float)0.380585, 
(float)0.393280, (float)0.406067, (float)0.418884, 
(float)0.431763, (float)0.444702, (float)0.457672, 
(float)0.470673, (float)0.483704, (float)0.496735, 
(float)0.509766, (float)0.522797, (float)0.535828, 
(float)0.548798, (float)0.561768, (float)0.574677, 
(float)0.587524, (float)0.600342, (float)0.613068, 
(float)0.625732, (float)0.638306, (float)0.650787, 
(float)0.663147, (float)0.675415, (float)0.687561, 
(float)0.699585, (float)0.711487, (float)0.723206, 
(float)0.734802, (float)0.746216, (float) 0.757477, 
(float)0.768585, (float)0.779480, (float)0.790192, 
(float)0.800720, (float)0.811005, (float)0.821106, 
(float)0.830994, (float)0.840668, (float)0.850067, 
(float)0.859253, (float)0.868225, (float)0.876892, 
(float)0.885345, (float)0.893524, (float)0.901428, 
(float)0.909058, (float)0.916412, (float)0.923492, 
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(float)0.930267, (float)0.936768, (float)0.942963, 
(float)0.948853, (float)0.954437, (float)0.959717, 
(float)0.964691, (float)0.969360, (float)0.973694, 
(float)0.977692, (float)0.981384, (float)0.984741, 
(float)0.987762, (float)0.990479, (float)0.992828, 
(float)0.994873, (float)0.996552, (float)0.997925, 
(float)0.998932, (float)0.999603, (float)0.999969, 
(float)0.999969, (float)0.999603, (float)0.998932, 
(float)0.997925, (float)0.996552, (float)0.994873, 
(float)0.992828, (float)0.990479, (float)0.987762, 
(float)0.984741, (float)0.981384, (float)0.977692, 
(float)0.973694, (float)0.969360, (float)0.964691, 
(float)0.959717, (float)0.954437, (float)0.948853, 
(float)0.942963, (float)0.936768, (float)0.930267, 
(float)0.923492, (float)0.916412, (float)0.909058, 
(float)0.901428, (float)0.893524, (float)0.885345, 
(float)0.876892, (float)0.868225, (float)0.859253, 
(float)0.850067, (float)0.840668, (float)0.830994, 
(float)0.821106, (float)0.811005, (float)0.800720, 
(float)0.790192, (float)0.779480, (float)0.768585, 
(float)0.757477, (float)0.746216, (float)0.734802, 
(float)0.723206, (float)0.711487, (float)0.699585, 
(float)0.687561, (float)0.675415, (float)0.663147, 
(float)0.650787, (float)0.638306, (float)0.625732, 
(float)0.613068, (float)0.600342, (float)0.587524, 
(float)0.574677, (float)0.561768, (float)0.548798, 
(float)0.535828, (float)0.522797, (float)0.509766, 
(float)0.496735, (float)0.483704, (float)0.470673, 
(float)0.457672, (float)0.444702, (float)0.431763, 
(float)0.418884, (float)0.406067, (float)0.393280, 
(float)0.380585, (float)0.367981, (float)0.355438, 
(float)0.343018, (float)0.330688, (float)0.318481, 
(float)0.306396, (float)0.294464, (float)0.282654, 
(float)0.270966, (float)0.259460, (float)0.248108, 
(float)0.236938, (float)0.225952, (float)0.215149, 
(float)0.204529, (float)0.194122, (float)0.183899, 
(float)0.173920, (float)0.164154, (float)0.154602, 
(float)0.145294, (float)0.136230, (float) 0.127411, 
(float)0.118835, (float)0.110535, (float)0.102509, 
(float)0.094727, (float)0.087219, (float)0.080017, 
(float)0.073090, (float)0.066437, (float)0.060089, 
(float)0.054047, (float)0.048309, (float)0.042877, 
(float)0.037750, (float)0.032928, (float)0.028442, 
(float)0.024261, (float)0.020416, (float)0.016907, 
(float)0.013702, (float)0.010834, (float)0.008301, 
(float)0.006104, (float)0.004242, (float)0.002716, 
(float)0.001526, (float)0.000671, (float)0.000183 


}; 
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/* Asymmetric LPC window */ 
float lpc asymwinTbl[BLOCKL MAX]=( 


(float)0.000061, (float)0.000214, (float)0.000458, 
(float)0.000824, (float)0.001282, (float)0.001831, 
(float)0.002472, (float)0.003235, (float)0.004120, 
(float)0.005066, (float)0.006134, (float)0.007294, 
(float)0.008545, (float)0.009918, (float)0.011383, 
(float)0.012939, (float)0.014587, (float)0.016357, 
(float)0.018219, (float)0.020172, (float)0.022217, 
(float)0.024353, (float)0.026611, (float)0.028961, 
(float)0.031372, (float)0.033905, (float)0.036530, 
(float)0.039276, (float)0.042084, (float)0.044983, 
(float)0.047974, (float)0.051086, (float)0.054260, 
(float)0.057526, (float)0.060883, (float)0.064331, 
(float)0.067871, (float)0.071503, (float)0.075226, 
(float)0.079010, (float)0.082916, (float)0.086884, 
(float)0.090942, (float)0.095062, (float)0.099304, 
(float)0.103607, (float)0.107971, (float) 0.112427, 
(float)0.116974, (float)0.121582, (float)0.126282, 
(float)0.131073, (float)0.135895, (float)0.140839, 
(float)0.145813, (float)0.150879, (float)0.156006, 
(float)0.161224, (float)0.166504, (float)0.171844, 
(float)0.177246, (float)0.182709, (float)0.188263, 
(float)0.193848, (float)0.199524, (float)0.205231, 
(float)0.211029, (float)0.216858, (float)0.222778, 
(float)0.228729, (float)0.234741, (float)0.240814, 
(float)0.246918, (float)0.253082, (float)0.259308, 
(float)0.265564, (float)0.271881, (float)0.278259, 
(float)0.284668, (float)0.291107, (float)0.297607, 
(float)0.304138, (float)0.310730, (float)0.317322, 
(float)0.323975, (float)0.330658, (float)0.337372, 
(float)0.344147, (float)0.350922, (float)0.357727, 
(float)0.364594, (float)0.371460, (float)0.378357, 
(float)0.385284, (float)0.392212, (float)0.399170, 
(float)0.406158, (float)0.413177, (float) 0.420197, 
(float)0.427246, (float)0.434296, (float)0.441376, 
(float)0.448456, (float)0.455536, (float)0.462646, 
(float)0.469757, (float)0.476868, (float)0.483978, 
(float)0.491089, (float)0.498230, (float)0.505341, 
(float)0.512451, (float)0.519592, (float)0.526703, 
(float)0.533813, (float)0.540924, (float)0.548004, 
(float)0.555084, (float)0.562164, (float)0.569244, 
(float)0.576294, (float)0.583313, (float)0.590332, 
(float)0.597321, (float)0.604309, (float)0.611267, 
(float)0.618195, (float)0.625092, (float)0.631989, 
(float)0.638855, (float)0.645660, (float)0.652466, 
(float)0.659241, (float)0.665985, (float)0.672668, 
(float)0.679352, (float)0.685974, (float)0.692566, 
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(float)0.699127, (float)0.705658, (float)0.712128, 
(float)0.718536, (float)0.724945, (float)0.731262, 
(float)0.737549, (float)0.743805, (float)0.750000, 
(float)0.756134, (float)0.762238, (float)0.768280, 
(float)0.774261, (float)0.780182, (float)0.786072, 
(float)0.791870, (float)0.797638, (float)0.803314, 
(float)0.808960, (float)0.814514, (float)0.820038, 
(float)0.825470, (float)0.830841, (float)0.836151, 
(float)0.841400, (float)0.846558, (float)0.851654, 
(float)0.856689, (float)0.861633, (float)0.866516, 
(float)0.871338, (float)0.876068, (float)0.880737, 
(float)0.885315, (float)0.889801, (float)0.894226, 
(float)0.898560, (float)0.902832, (float)0.907013, 
(float)0.911102, (float)0.915100, (float)0.919037, 
(float)0.922882, (float)0.926636, (float)0.930328, 
(float)0.933899, (float)0.937408, (float)0.940796, 
(float)0.944122, (float)0.947357, (float)0.950470, 
(float)0.953522, (float)0.956482, (float)0.959351, 
(float)0.962097, (float)0.964783, (float)0.967377, 
(float)0.969849, (float)0.972229, (float)0.974518, 
(float)0.976715, (float)0.978821, (float)0.980835, 
(float)0.982727, (float)0.984528, (float)0.986237, 
(float)0.987854, (float)0.989380, (float)0.990784, 
(float)0.992096, (float)0.993317, (float)0.994415, 
(float)0.995422, (float)0.996338, (float)0.997162, 
(float)0.997864, (float)0.998474, (float)0.998962, 
(float)0.999390, (float)0.999695, (float)0.999878, 
(float)0.999969, (float)0.999969, (float)0.996918, 
(float)0.987701, (float)0.972382, (float)0.951050, 
(float)0.923889, (float)0.891022, (float)0.852631, 
(float)0.809021, (float)0.760406, (float)0.707092, 
(float) 0.649445, (float)0.587799, (float)0.522491, 
(float) 0.453979, (float)0.382690, (float)0.309021, 
(float)0.233459, (float)0.156433, (float)0.078461 


l; 


/* Lag window for LPC */ 
float lpc lagwinTbl [LPC FILTERORDER + 1]={ 
(float) 1.000100, (float)0.998890, (float)0.995569, 
(float)0.990057, (float)0.982392, 
(float)0.972623, (float)0.960816, (float)0.947047, 
(float)0.931405, (float)0.913989, (float)0.894909); 


/* LSF quantization*/ 

float lsfCbTb1[64 * 3 + 128 * 3 + 128 * 4] = { 
(float)0.155396, (float)0.273193, (float)0.451172, 
(float)0.390503, (float)0.648071, (float)1.002075, 
(float)0.440186, (float)0.692261, (float)0.955688, 
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(float) 0.343628, (float)0.642334, (float) 1.071533, 
(float) 0.318359, (float)0.491577, (float)0.670532, 
(float)0.193115, (float)0.375488, (float)0.725708, 
(float)0.364136, (float)0.510376, (float)0.658691, 
(float)0.297485, (float)0.527588, (float)0.842529, 
(float)0.227173, (float)0.365967, (float)0.563110, 
(float)0.244995, (float)0.396729, (float)0.636475, 
(float)0.169434, (float)0.300171, (float)0.520264, 
(float)0.312866, (float)0.464478, (float)0.643188, 
(float)0.248535, (float)0.429932, (float)0.626099, 
(float)0.236206, (float)0.491333, (float)0.817139, 
(float)0.334961, (float)0.625122, (float)0.895752, 
(float)0.343018, (float)0.518555, (float)0.698608, 
(float)0.372803, (float)0.659790, (float)0.945435, 
(float)0.176880, (float)0.316528, (float)0.581421, 
(float)0.416382, (float)0.625977, (float)0.805176, 
(float)0.303223, (float)0.568726, (float)0.915039, 
(float)0.203613, (float)0.351440, (float)0.588135, 
(float)0.221191, (float)0.375000, (float)0.614746, 
(float)0.199951, (float)0.323364, (float)0.476074, 
(float)0.300781, (float)0.433350, (float)0.566895, 
(float)0.226196, (float)0.354004, (float)0.507568, 
(float)0.300049, (float)0.508179, (float)0.711670, 
(float)0.312012, (float)0.492676, (float)0.763428, 
(float)0.329956, (float)0.541016, (float)0.795776, 
(float)0.373779, (float)0.604614, (float)0.928833, 
(float)0.210571, (float)0.452026, (float)0.755249, 
(float)0.271118, (float)0.473267, (float)0.662476, 
(float)0.285522, (float)0.436890, (float)0.634399, 
(float)0.246704, (float)0.565552, (float)0.859009, 
(float)0.270508, (float)0.406250, (float)0.553589, 
(float)0.361450, (float)0.578491, (float)0.813843, 
(float)0.342651, (float)0.482788, (float)0.622437, 
(float)0.340332, (float)0.549438, (float)0.743164, 
(float)0.200439, (float)0.336304, (float)0.540894, 
(float)0.407837, (float)0.644775, (float)0.895142, 
(float)0.294678, (float)0.454834, (float)0.699097, 
(float)0.193115, (float)0.344482, (float)0.643188, 
(float)0.275757, (float)0.420776, (float)0.598755, 
(float)0.380493, (float)0.608643, (float)0.861084, 
(float)0.222778, (float)0.426147, (float)0.676514, 
(float)0.407471, (float)0.700195, (float)1.053101, 
(float)0.218384, (float)0.377197, (float)0.669922, 
(float)0.313232, (float)0.454102, (float)0.600952, 
(float)0.347412, (float)0.571533, (float)0.874146, 
(float)0.238037, (float)0.405396, (float)0.729492, 
(float)0.223877, (float)0.412964, (float)0.822021, 
(float)0.395264, (float)0.582153, (float)0.743896, 
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(float)0.247925, (float)0.485596, (float)0.720581, 
(float)0.229126, (float)0.496582, (float)0.907715, 
(float)0.260132, (float)0.566895, (float)1.012695, 
(float)0.337402, (float)0.611572, (float)0.978149, 
(float)0.267822, (float)0.447632, (float)0.769287, 
(float)0.250610, (float)0.381714, (float)0.530029, 
(float)0.430054, (float)0.805054, (float)1.221924, 
(float)0.382568, (float)0.544067, (float)0.701660, 
(float)0.383545, (float)0.710327, (float)1.149170, 
(float)0.271362, (float)0.529053, (float)0.775513, 
(float)0.246826, (float)0.393555, (float)0.588623, 
(float)0.266846, (float)0.422119, (float)0.676758, 
(float)0.311523, (float)0.580688, (float)0.838623, 
(float)1.331177, (float)1.576782, (float)1.779541, 
(float)1.160034, (float)1.401978, (float)1.768188, 
(float)1.161865, (float)1.525146, (float)1.715332, 
(float)0.759521, (float)0.913940, (float)1.119873, 
(float)0.947144, (float)1.121338, (float)1.282471, 
(float)1.015015, (float)1.557007, (float)1.804932, 
(float)1.172974, (float)1.402100, (float)1.692627, 
(float)1.087524, (float)1.474243, (float)1.665405, 
(float)0.899536, (float)1.105225, (float)1.406250, 
(float)1.148438, (float)1.484741, (float)1.796265, 
(float)0.785645, (float)1.209839, (float)1.567749, 
(float)0.867798, (float)1.166504, (float)1.450684, 
(float)0.922485, (float)1.229858, (float)1.420898, 
(float)0.791260, (float)1.123291, (float)1.409546, 
(float)0.788940, (float)0.966064, (float)1.340332, 
(float)1.051147, (float)1.272827, (float)1.556641, 
(float)0.866821, (float)1.181152, (float)1.538818, 
(float)0.906738, (float)1.373535, (float)1.607910, 
(float)1.244751, (float)1.581421, (float)1.933838, 
(float)0.913940, (float)1.337280, (float)1.539673, 
(float)0.680542, (float)0.959229, (float)1.662720, 
(float)0.887207, (float)1.430542, (float)1.800781, 
(float)0.912598, (float)1.433594, (float)1.683960, 
(float)0.860474, (float)1.060303, (float)1.455322, 
(float)1.005127, (float)1.381104, (float)1.706909, 
(float)0.800781, (float)1.363892, (float)1.829102, 
(float)0.781860, (float)1.124390, (float)1.505981, 
(float)1.003662, (float)1.471436, (float)1.684692, 
(float) 0.981323, (float)1.309570, (float)1.618042, 
(float)1.228760, (float)1.554321, (float)1.756470, 
(float)0.734375, (float)0.895752, (float)1.225586, 
(float)0.841797, (float)1.055664, (float)1.249268, 
(float)0.920166, (float)1.119385, (float)1.486206, 
(float)0.894409, (float)1.539063, (float)1.828979, 
(float)1.283691, (float)1.543335, (float)1.858276, 
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(float) 0.676025, (float)0.933105, (float) 1.490845, 
(float) 0.821289, (float)1.491821, (float) 1.739868, 
(float)0.923218, (float)1.144653, (float) 1.580566, 
(float) 1.057251, (float)1.345581, (float)1.635864, 
(float)0.888672, (float)1.074951, (float) 1.353149, 
(float)0.942749, (float)1.195435, (float) 1.505493, 
(float) 1.492310, (float)1.788086, (float)2.039673, 
(float) 1.070313, (float)1.634399, (float)1.860962, 
(float) 1.253296, (float)1.488892, (float) 1.686035, 
(float) 0.647095, (float)0.864014, (float) 1.401855, 
(float) 0.866699, (float)1.254883, (float) 1.453369, 
(float) 1.063965, (float)1.532593, (float)1.731323, 
(float) 1.167847, (float)1.521484, (float)1.884033, 
(float) 0.956055, (float)1.502075, (float) 1.745605, 
(float)0.928711, (float)1.288574, (float)1.479614, 
(float) 1.088013, (float)1.380737, (float)1.570801, 
(float) 0.905029, (float)1.186768, (f10at)1.371948, 
(float) 1.057861, (float)1.421021, (float)1.617432, 
(float) 1.108276, (float)1.312500, (float)1.501465, 
(float)0.979492, (float)1.416992, (float) 1.624268, 
(float) 1.276001, (float)1.661011, (float)2.007935, 
(float) 0.993042, (float)1.168579, (float)1.331665, 
(float)0.778198, (float)0.944946, (float) 1.235962, 
(float) 1.223755, (float)1.491333, (float)1.815674, 
(float) 0.852661, (float)1.350464, (float)1.722290, 
(float) 1.134766, (float)1.593140, (float)1.787354, 
(float) 1.051392, (float)1.339722, (float)1.531006, 
(float) 0.803589, (float)1.271240, (float)1.652100, 
(float)0.755737, (float)1.143555, (float)1.639404, 
(float)0.700928, (float)0.837280, (float)1.130371, 
(float)0.942749, (float)1.197876, (float)1.669800, 
(float) 0.993286, (float)1.378296, (float) 1.566528, 
(float) 0.801025, (float)1.095337, (float)1.298950, 
(float)0.739990, (float)1.032959, (float) 1.383667, 
(float) 0.845703, (float)1.072266, (float) 1.543823, 
(float) 0.915649, (float)1.072266, (float) 1.224487, 
(float) 1.021973, (float)1.226196, (float) 1.481323, 
(float)0.999878, (float)1.204102, (float) 1.555908, 
(float)0.722290, (float)0.913940, (float)1.340210, 
(float)0.673340, (float)0.835938, (float)1.259521, 
(float)0.832397, (float)1.208374, (float)1.394165, 
(float)0.962158, (float)1.576172, (float)1.912842, 
(float)1.166748, (float)1.370850, (float)1.556763, 
(float)0.946289, (float)1.138550, (float)1.400391, 
(float)1.035034, (float)1.218262, (float)1.386475, 
(float)1.393799, (float)1.717773, (float)2.000244, 
(float)0.972656, (float)1.260986, (float)1.760620, 
(float)1.028198, (float)1.288452, (float)1.484619, 
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(float)0.773560, (float)1.258057, (float)1.756714, 
(float)1.080322, (float)1.328003, (float)1.742676, 
(float)0.823975, (float)1.450806, (float)1.917725, 
(float)0.859009, (float)1.016602, (float)1.191895, 
(float) 0.843994, (float)1.131104, (float)1.645020, 
(float)1.189697, (float)1.702759, (float)1.894409, 
(float)1.346680, (float)1.763184, (float)2.066040, 
(float)0.980469, (float)1.253784, (float)1.441650, 
(float) 1.338135, (float)1.641968, (float)1.932739, 
(float)1.223267, (float)1.424194, (float)1.626465, 
(float)0.765747, (float)1.004150, (float)1.579102, 
(float)1.042847, (float)1.269165, (float)1.647461, 
(float)0.968750, (float)1.257568, (float)1.555786, 
(float)0.826294, (float)0.993408, (float)1.275146, 
(float)0.742310, (float)0.950439, (float)1.430542, 
(float)1.054321, (float)1.439819, (float)1.828003, 
(float)1.072998, (float)1.261719, (float)1.441895, 
(float)0.859375, (float)1.036377, (float)1.314819, 
(float)0.895752, (float)1.267212, (float)1.605591, 
(float)0.805420, (float)0.962891, (float)1.142334, 
(float)0.795654, (float)1.005493, (float)1.468506, 
(float)1.105347, (float)1.313843, (float)1.584839, 
(float)0.792236, (float)1.221802, (float)1.465698, 
(float)1.170532, (float)1.467651, (float)1.664063, 
(float)0.838257, (float)1.153198, (float)1.342163, 
(float)0.968018, (float)1.198242, (float)1.391235, 
(float)1.250122, (float)1.623535, (float)1.823608, 
(float)0.711670, (float)1.058350, (float)1.512085, 
(float)1.204834, (float)1.454468, (float)1.739136, 
(float)1.137451, (float)1.421753, (float)1.620117, 
(float)0.820435, (float)1.322754, (float)1.578247, 
(float)0.798706, (float)1.005005, (float)1.213867, 
(float)0.980713, (float)1.324951, (float)1.512939, 
(float)1.112305, (float)1.438843, (float)1.735596, 
(float)1.135498, (float)1.356689, (float)1.635742, 
(float)1.101318, (float)1.387451, (float)1.686523, 
(float)0.849854, (float)1.276978, (float)1.523438, 
(float)1.377930, (float)1.627563, (float)1.858154, 
(float)0.884888, (float)1.095459, (float)1.287476, 
(float)1.289795, (float)1.505859, (float)1.756592, 
(float)0.817505, (float)1.384155, (float)1.650513, 
(float)1.446655, (float)1.702148, (float)1.931885, 
(float)0.835815, (float)1.023071, (float)1.385376, 
(float)0.916626, (float)1.139038, (float)1.335327, 
(float)0.980103, (float)1.174072, (float)1.453735, 
(float)1.705688, (float)2.153809, (float)2.398315, (float)2.743408, 
(float)1.797119, (float)2.016846, (float)2.445679, (float)2.701904, 
(float)1.990356, (float)2.219116, (float)2.576416, (float)2.813477, 
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(float) 1.849365, (float)2.190918, (float)2.611572, (float)2.835083, 
(float) 1.657959, (float)1.854370, (float)2.159058, (float)2.726196, 
(float) 1.437744, (float)1.897705, (float)2.253174, (float)2.655396, 
(float)2.028687, (float)2.247314, (float)2.542358, (float)2.875854, 
(float) 1.736938, (float)1.922119, (float)2.185913, (float)2.743408, 
(float) 1.521606, (float)1.870972, (float)2.526855, (float)2.786987, 
(float) 1.841431, (float)2.050659, (float)2.463623, (float)2.857666, 
(float) 1.590088, (float)2.067261, (float)2.427979, (float)2.794434, 
(float) 1.746826, (float)2.057373, (float)2.320190, (float)2.800781, 
(float) 1.734619, (float)1.940552, (float)2.306030, (float)2.826416, 
(float)1.786255, (float)2.204468, (float)2.457520, (float)2.795288, 
(float)1.861084, (float)2.170532, (float)2.414551, (float)2.763672, 
(float)2.001465, (float)2.307617, (float)2.552734, (float)2.811890, 
(float)1.784424, (float)2.124146, (float)2.381592, (float)2.645508, 
(float)1.888794, (float)2.135864, (float)2.418579, (float)2.861206, 
(float)2.301147, (float)2.531250, (float)2.724976, (float)2.913086, 
(float)1.837769, (float)2.051270, (float)2.261963, (float)2.553223, 
(float)2.012939, (float)2.221191, (float)2.440186, (float)2.678101, 
(float)1.429565, (float)1.858276, (float)2.582275, (float)2.845703, 
(float)1.622803, (float)1.897705, (float)2.367310, (float)2.621094, 
(float)1.581543, (float)1.960449, (float)2.515869, (float)2.736450, 
(float)1.419434, (float)1.933960, (float)2.394653, (float)2.746704, 
(float)1.721924, (float)2.059570, (float)2.421753, (float)2.769653, 
(float)1.911011, (float)2.220703, (float)2.461060, (float)2.740723, 
(float)1.581177, (float)1.860840, (float)2.516968, (float)2.874634, 
(float)1.870361, (float)2.098755, (float)2.432373, (float)2.656494, 
(float)2.059692, (float)2.279785, (float)2.495605, (float)2.729370, 
(float)1.815674, (float)2.181519, (float)2.451538, (float)2.680542, 
(float)1.407959, (float)1.768311, (float)2.343018, (float)2.668091, 
(float)2.168701, (float)2.394653, (float)2.604736, (float)2.829346, 
(float)1.636230, (float)1.865723, (float)2.329102, (float)2.824219, 
(float)1.878906, (float)2.139526, (float)2.376709, (float)2.679810, 
(float)1.765381, (float)1.971802, (float)2.195435, (float)2.586914, 
(float)2.164795, (float)2.410889, (float)2.673706, (float)2.903198, 
(float)2.071899, (float)2.331055, (float)2.645874, (float)2.907104, 
(float)2.026001, (float)2.311523, (float)2.594849, (float)2.863892, 
(float)1.948975, (float)2.180786, (float)2.514893, (float)2.797852, 
(float)1.881836, (float)2.130859, (float)2.478149, (float)2.804199, 
(float)2.238159, (float)2.452759, (float)2.652832, (float)2.868286, 
(float)1.897949, (float)2.101685, (float)2.524292, (float)2.880127, 
(float)1.856445, (float)2.074585, (float)2.541016, (float)2.791748, 
(float)1.695557, (float)2.199097, (float)2.506226, (float)2.742676, 
(float)1.612671, (float)1.877075, (float)2.435425, (float)2.732910, 
(float)1.568848, (float)1.786499, (float)2.194580, (float)2.768555, 
(float)1.953369, (float)2.164551, (float)2.486938, (float)2.874023, 
(float)1.388306, (float)1.725342, (float)2.384521, (float)2.771851, 
(float)2.115356, (float)2.337769, (float)2.592896, (float)2.864014, 
(float)1.905762, (float)2.111328, (float)2.363525, (float)2.789307, 
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(float) 1.882568, (float)2.332031, (float)2.598267, (float)2.827637, 
(float) 1.683594, (float)2.088745, (float)2.361938, (float)2.608643, 
(float)1.874023, (float)2.182129, (float)2.536133, (float)2.766968, 
(float)1.861938, (float)2.070435, (float)2.309692, (float)2.700562, 
(float)1.722168, (float)2.107422, (float)2.477295, (float)2.837646, 
(float)1.926880, (float)2.184692, (float)2.442627, (float)2.663818, 
(float)2.123901, (float)2.337280, (float)2.553101, (float)2.777466, 
(float)1.588135, (float)1.911499, (float)2.212769, (float)2.543945, 
(float)2.053955, (float)2.370850, (float)2.712158, (float)2.939941, 
(float)2.210449, (float)2.519653, (float)2.770386, (float)2.958618, 
(float)2.199463, (float)2.474731, (float)2.718262, (float)2.919922, 
(float)1.960083, (float)2.175415, (float)2.608032, (float)2.888794, 
(float)1.953735, (float)2.185181, (float)2.428223, (float)2.809570, 
(float)1.615234, (float)2.036499, (float)2.576538, (float)2.834595, 
(float)1.621094, (float)2.028198, (float)2.431030, (float)2.664673, 
(float)1.824951, (float)2.267456, (float)2.514526, (float)2.747925, 
(float)1.994263, (float)2.229126, (float)2.475220, (float)2.833984, 
(float)1.746338, (float)2.011353, (float)2.588257, (float)2.826904, 
(float)1.562866, (float)2.135986, (float)2.471680, (float)2.687256, 
(float)1.748901, (float)2.083496, (float)2.460938, (float)2.686279, 
(float)1.758057, (float)2.131470, (float)2.636597, (float)2.891602, 
(float)2.071289, (float)2.299072, (float)2.550781, (float)2.814331, 
(float)1.839600, (float)2.094360, (float)2.496460, (float)2.723999, 
(float)1.882202, (float)2.088257, (float)2.636841, (float)2.923096, 
(float)1.957886, (float)2.153198, (float)2.384399, (float)2.615234, 
(float)1.992920, (float)2.351196, (float)2.654419, (float)2.889771, 
(float)2.012817, (float)2.262451, (float)2.643799, (float)2.903076, 
(float)2.025635, (float)2.254761, (float)2.508423, (float)2.784058, 
(float)2.316040, (float)2.589355, (float)2.794189, (float)2.963623, 
(float)1.741211, (float)2.279541, (float)2.578491, (float)2.816284, 
(float)1.845337, (float)2.055786, (float)2.348511, (float)2.822021, 
(float)1.679932, (float)1.926514, (float)2.499756, (float)2.835693, 
(float)1.722534, (float)1.946899, (float)2.448486, (float)2.728760, 
(float)1.829834, (float)2.043213, (float)2.580444, (float)2.867676, 
(float)1.676636, (float)2.071655, (float)2.322510, (float)2.704834, 
(float)1.791504, (float)2.113525, (float)2.469727, (float)2.784058, 
(float)1.977051, (float)2.215088, (float)2.497437, (float)2.726929, 
(float)1.800171, (float)2.106689, (float)2.357788, (float)2.738892, 
(float)1.827759, (float)2.170166, (float)2.525879, (float)2.852417, 
(float)1.918335, (float)2.132813, (float)2.488403, (float)2.728149, 
(float)1.916748, (float)2.225098, (float)2.542603, (float)2.857666, 
(float)1.761230, (float)1.976074, (float)2.507446, (float)2.884521, 
(float)2.053711, (float)2.367432, (float)2.608032, (float)2.837646, 
(float)1.595337, (float)2.000977, (float)2.307129, (float)2.578247, 
(float)1.470581, (float)2.031250, (float)2.375854, (float)2.647583, 
(float)1.801392, (float)2.128052, (float)2.399780, (float)2.822876, 
(float)1.853638, (float)2.066650, (float)2.429199, (float)2.751465, 
(float)1.956299, (float)2.163696, (float)2.394775, (float)2.734253, 
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(float) 1.963623, (float)2.275757, (float)2.585327, (float)2.865234, 
(float) 1.887451, (float)2.105469, (float)2.331787, (float)2.587402, 
(float)2.120117, (float)2.443359, (float)2.733887, (float)2.941406, 
(float)1.506348, (float)1.766968, (float)2.400513, (float)2.851807, 
(float)1.664551, (float)1.981079, (float)2.375732, (float)2.774414, 
(float)1.720703, (float)1.978882, (float)2.391479, (float)2.640991, 
(float)1.483398, (float)1.814819, (float)2.434448, (float)2.722290, 
(float)1.769043, (float)2.136597, (float)2.563721, (float)2.774414, 
(float)1.810791, (float)2.049316, (float)2.373901, (float)2.613647, 
(float)1.788330, (float)2.005981, (float)2.359131, (float)2.723145, 
(float)1.785156, (float)1.993164, (float)2.399780, (float)2.832520, 
(float)1.695313, (float)2.022949, (float)2.522583, (float)2.745117, 
(float)1.584106, (float)1.965576, (float)2.299927, (float)2.715576, 
(float)1.894897, (float)2.249878, (float)2.655884, (float)2.897705, 
(float)1.720581, (float)1.995728, (float)2.299438, (float)2.557007, 
(float)1.619385, (float)2.173950, (float)2.574219, (float)2.787964, 
(float)1.883179, (float)2.220459, (float)2.474365, (float)2.825073, 
(float)1.447632, (float)2.045044, (float)2.555542, (float)2.744873, 
(float)1.502686, (float)2.156616, (float)2.653320, (float)2.846558, 
(float)1.711548, (float)1.944092, (float)2.282959, (float)2.685791, 
(float)1.499756, (float)1.867554, (float)2.341064, (float)2.578857, 
(float)1.916870, (float)2.135132, (float)2.568237, (float)2.826050, 
(float)1.498047, (float)1.711182, (float)2.223267, (float)2.755127, 
(float)1.808716, (float)1.997559, (float)2.256470, (float)2.758545, 
(float)2.088501, (float)2.402710, (float)2.667358, (float)2.890259, 
(float)1.545044, (float)1.819214, (float)2.324097, (float)2.692993, 
(float)1.796021, (float)2.012573, (float)2.505737, (float)2.784912, 
(float)1.786499, (float)2.041748, (float)2.290405, (float)2.650757, 
(float)1.938232, (float)2.264404, (float)2.529053, (float)2.796143 
} 


A.9.  anaFilter.h 
[KR KKK kok k k kk K kk k kk kok k kk K kk K k kk K k K k X RARA RRA ck kck ck kck kkk ck ck kck ck OK 
iLBC Speech Coder ANSI-C Source Code 
anaFilter.h 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK X ká X kk kc k ck kCk ck k kk k kc k Ck kc k K ck kck ck kck ck KKK ck kc k ck kck ck kck ck ckck ck ckck ck RARAS 


#ifndef __iLBC ANAFILTER H 
#define __iLBC ANAFILTER H 


void anaFilter ( 
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float *In, /* (i) Signal to be filtered */ 
float *a, /* (i) LP parameters */ 
int len,/* (i) Length of signal */ 
float *Out, /* (o) Filtered signal */ 
float *mem /* (i/o) Filter state */ 
); 


fendif 
A.10. anaFilter.c 
[KR KKK kok k k kk k kk k kk kok K kk K kk OK kk KC Ck X k X OK RRA RRA RRA ck ck ckck kckck ck OK 
iLBC Speech Coder ANSI-C Source Code 
anaFilter.c 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK X ká k kc k Ck kc k ck k kk kck ck k kc k k kk k kk kc k ck kck ck kck ck ck KKK kck ck kck ck KKK KKK ck ck ke kk | 


#include <string.h> 
#include "iLBC define.h" 


/* <> * 
* LP analysis filter. 
px C u aM */ 


void anaFilter ( 
float *In, /* (i) Signal to be filtered */ 
float *a, /* (i) LP parameters */ 
int len,/* (i) Length of signal */ 
float *Out, /* (o) Filtered signal */ 
float *mem /* (i/o) Filter state */ 


int i, j; 
float *po, *pi, *pm, *pa; 


po = Out; 
/* Filter first part using memory from past */ 
for (i=0; i<LPC_FILTERORDER; i++) { 


pi = &In[il; 
pm = &mem[LPC_FILTERORDER-1]; 
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for (j=0; j<=i; j++) I 
*po+=(*pa++) * (*pi--); 

} 

for (j=i+l; j<LPC FILTERORDER+1; j++) ( 


*po+=(*pa++) * (*pm--); 
} 
po++; 
} 


/* Filter last part where the state is entirely 
in the input vector */ 


for (i=LPC FILTERORDER; i<len; i++) { 
pi = &In[il; 
pa — à; 
*po=0.0; 
for (j=0; j«LPC FILTERORDER+1; j++) ( 
*po+=(*pa++) * (*pi--); 
} 
po++; 
) 


/* Update state vector */ 
memcpy (mem, &In[len-LPC FILTERORDER], 
LPC FILTERORDER*sizeof(float)); 
} 


A.11. createCB.h 


December 2004 


[KR KKK KKK KKK KKK KK KKK KOK K kk K kk kk K k K k X KA KA OK KKK KKK KK KK KK OK 


iLBC Speech Coder ANSI-C Source Code 


createCB.h 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK X ká k kc k Ck kk kCk ck k kk k kc k Ck kc k Ck k kk K k ck KKK kck ck k KKK kck ck kck ck kck ck ckckck kc kck ke kk | 


#ifndef | iLBC CREATECB H 
#define — iLBC CREATECB H 


void filteredCBvecs ( 


float *cbvectors, /* (0) Codebook vector for the 


higher section */ 
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float *mem, /* (i) Buffer to create codebook 
vectors from */ 
int 1Mem /* (i) Length of buffer */ 


); 


void searchAugmentedCB ( 
int low, /* (i) Start index for the search */ 


int high, /* (i) End index for the search */ 

int stage, /* (i) Current stage */ 

int startIndex, /* (i) CB index for the first 
augmented vector */ 

float *target, /* (i) Target vector for encoding */ 

float *buffer, /* (i) Pointer to the end of the 


buffer for augmented codebook 
construction */ 
float *max measure, /* (i/o) Currently maximum measure */ 
int *best index,/* (o) Currently the best index */ 
float *gain, /* (0) Currently the best gain */ 
float *energy, /* (0) Energy of augmented 
codebook vectors */ 
float *invenergy/* (0) Inv energy of aug codebook 
vectors */ 


); 


void createAugmentedVec ( 


int index, /* (1) Index for the aug vector 
to be created */ 
float *buffer, /* (1) Pointer to the end of the 


buffer for augmented codebook 
construction */ 
float *cbVec /* (o) The construced codebook vector */ 
); 
#endif 


A.12. createCB.c 


[KR KKK KKK KKK k kk KKK kok K kk KK KKK OK KK KK kCk ck kck ck kck ck KK ck kck ck KK 


iLBC Speech Coder ANSI-C Source Code 
createCB.c 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK X ká KK kCk ck k kc k k kc k Ck kc k ck kk kck ck kck ck kck ck ck kck ck kck ck OK OK OK KK | 
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+include "iLBC define.h" 
#include "constants.h" 
#include <string.h> 
+include <math.h> 


Construct an additional codebook vector by filtering the 
initial codebook buffer. This vector is then used to expand 
* the codebook with an additional section. 


RE eb S = žab Sa So EEES E */ 
void filteredCBvecs ( 
float *cbvectors, /* (0) Codebook vectors for the 
higher section */ 
float *mem, /* (i) Buffer to create codebook 
vector from */ 
int 1Mem /* (i) Length of buffer */ 
11 
int j, k; 


float *pp, *ppl; 
float tempbuff2 [CB MEML+CB FILTERLEN]; 
float *pos; 


memset (tempbuff2, 0, (CB HALFFILTERLEN-1) *sizeof (float)); 
memcpy (6tempbuff2 [CB HALFFILTERLEN-1], mem, lMem*sizeof (float)); 
memset (&tempbuff2[lMem+CB HALFFILTERLEN-1], 0, 

(CB HALFFILTERLEN+1) *sizeof (float)); 


/* Create codebook vector for higher section by filtering */ 


/* do filtering */ 

pos=cbvectors; 

memset (pos, 0, lMem*sizeof(float)); 

for (k=0; k<lMem; k++) ( 
pp=&tempbuff2[kl; 
ppl=&cbfiltersTbl[CB FILTERLEN-1]; 
for (j20;j«CB FILTERLEN; j++) { 

(*pos) += (*pp++) * (*ppl--); 


pos++; 
} 
} 
/* ———Á———————————— L 5 H EBS ss E a = P * 
* Search the augmented part of the codebook to find the best 
measure. 
A A n er aa A A n a n an D Kat E ea k MĚ l n m l mě S n n i P v n n a n n m elc */ 
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void searchAugmentedCB ( 
int low, /* (i) Start index for the search */ 


int high, /* (i) End index for the search */ 
int stage, /* (i) Current stage */ 
int startIndex, /* (i) Codebook index for the first 
aug vector */ 
float *target, /* (i) Target vector for encoding */ 
float *buffer, /* (i) Pointer to the end of the buffer for 


augmented codebook construction */ 

float *max measure, /* (i/o) Currently maximum measure */ 

int *best index,/* (o) Currently the best index */ 

float *gain, /* (o) Currently the best gain */ 

float *energy, /* (o) Energy of augmented codebook 
vectors */ 

float *invenergy/* (o) Inv energy of augmented codebook 
vectors */ 


int icount, ilow, j, tmpIndex; 

float *pp, *ppo, *ppi, *ppe, crossDot, alfa; 
float weighted, measure, nrjRecursive; 

float ftmp; 


/* Compute the energy for the first (low-5) 
noninterpolated samples */ 
nrjRecursive - (float) 0.0; 
pp = buffer - low + 1; 
for (j=0; j<(low-5); j++) { 
nrjRecursive += ( (*pp)*(*pp) ); 
pptt; 


ppe = buffer - low; 


for (icount=low; icount<=high; icount++) { 
/* Index of the codebook vector used for retrieving 
energy values */ 


tmpIndex = startIndex+icount-20; 


ilow = icount-4; 


/* Update the energy recursively to save complexity */ 
nrjRecursive = nrjRecursive + (*ppe)* (*ppe); 

ppe--; 

energy [tmpIndex] = nrjRecursive; 


/* Compute cross dot product for the first (low-5) 
samples */ 
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crossDot = (float) 0.0; 
pp = buffer-icount; 
for (j=0; j<ilow; j++) { 
crossDot += target[jl*(*pp++); 
) 


/* interpolation */ 

alfa = (float) 0.2; 

ppo = buffer-4; 

ppi = buffer-icount-4; 

for (j=ilow; j<icount; j++) ( 
weighted = ((float)1.0-alfa)* (*ppo) +alfa* (*ppi) 
ppott; 
ppitt; 
energy[tmpIndex] += weighted*weighted; 
crossDot += target[j]*weighted; 
alfa += (float)0.2; 

} 


/* Compute energy and cross dot product for the 
remaining samples */ 

pp = buffer - icount; 

for (j=icount; j<SUBL; j++) { 
energy [tmpIndex] += (*pp)*(*pp); 
crossDot += target[jl*(*pp++); 

) 


if (energy[tmpIndex]>0.0) ( 


f 


invenergy [tmpIndex]=(float)1.0/ (energy [tmpIndex]+EPS) ; 


} else { 

invenergy[tmpIndex] = (float) 0.0; 
} 
if (stage==0) ( 

measure = (float)-10000000.0; 


if (crossDot > 0.0) ( 


measure = crossDot*crossDot*invenergy [tmpIndex]; 


} 
} 


else ( 


measure = crossDot*crossDot*invenergy [tmpIndex] ; 


} 


/* check if measure is better */ 
ftmp = crossDot*invenergy [tmpIndex] ; 


if ((measure>*max measure) && (fabs (ftmp)<CB_MAXGAIN)) { 
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*best index = tmpIndex; 
*max measure = measure; 
*gain = ftmp; 


void createAugmentedVec ( 


December 2004 


int index, /* (1) Index for the augmented vector 


to be created */ 


float *buffer, /* (i) Pointer to the end of the buffer for 
augmented codebook construction */ 
float *cbVec/* (o) The construced codebook vector */ 


int ilow, j; 
float *pp, *ppo, *ppi, alfa, alfal, weighted; 


ilow = index-5; 
/* copy the first noninterpolated part */ 


pp = buffer-index; 
memcpy (cbVec, pp, sizeof (float) *index) ; 


/* interpolation */ 


alfal = (float)0.2; 

alfa = 0.0; 

ppo = buffer-5; 

ppi = buffer-index-5; 

for (j=ilow; j<index; j++) ( 


weighted = ((float)1.0-alfa)* (*ppo) +alfa* (*ppi); 
ppott; 

ppi++; 

cbVec[j] = weighted; 


alfa += alfal; 
} 


/* copy the second noninterpolated part */ 


pp = buffer - index; 
memcpy (cbVec+index,pp,sizeof (float) * (SUBL-index)); 
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} 
A.13. doCPLC.h 
(KK kk k kk k kk k kk KKK KKK KKK K k KKK KKK KKK KKK K KKK KKK KKK kck ck kck ck ckckck ck KK 
iLBC Speech Coder ANSI-C Source Code 
doCPLC.h 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK X ká X kk X kk kCk OK k kk k kc k ck kc k ck kckck KKK KKK ck kck ck kck ck KKK KKK RARA RARAS 


#ifndef iLBC_DOLPC_H 
#define iLBC_DOLPC_H 


void doThePLC( 
float *PLCresidual, /* (0) concealed residual */ 


float *PLClpc, /* (0) concealed LP parameters */ 
int PLI, /* (i) packet loss indicator 
0 - no PL, 1 = PL */ 
float *decresidual, /* (i) decoded residual */ 
float *lpc, /* (i) decoded LPC (only used for no PL) */ 
int inlag, /* (i) pitch lag */ 


iLBC Dec Inst t *iLBCdec inst 
/* (i/o) decoder instance */ 
); 
+endif 
A.14.  doCPLC.c 
[KR KKK kok k k kk k kk k kk kk K kk K kk K kk kk KKK KKK KKK K KKK AK KA kck ck kck ck ck ck ck ck kck ck OK 
iLBC Speech Coder ANSI-C Source Code 


doCPLC.c 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK kck ck X kc k Ck kc k ck kCk ck kck ck k kc k k kc k Ck kCk ck kck ck X KA KKK K KKK kck ck kck ck kck ck ckckck ck ck ck | 


#include <math.h> 
#include <string.h> 
#include <stdio.h> 
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+include "iLBC define.h" 


Compute cross correlation and pitch gain for pitch prediction 
* of last subframe at given lag. 


Ki ELM E L LSL LI ZL E S ae SL L a S r L */ 
void compCorr( 
float *cc, /* (0) cross correlation coefficient */ 
float *gc, /* (0) gain */ 
float *pm, 
float *buffer, /* (i) signal buffer */ 
int lag, /* (i) pitch lag */ 
int bLen, /* (i) length of buffer */ 
int sRange /* (i) correlation search length */ 
{ 
int i; 


float ftmpl, ftmp2, ftmp3; 


/* Guard against getting outside buffer */ 

if ((bLen-sRange-lag) <0) { 
sRange=bLen-lag; 

} 


ftmpl = ; 
ftmp2 = H 
ftmp3 = 0.0; 
for (i=0; i<sRange; i++) ( 
ftmpl += buffer[bLen-sRangeti] * 
buffer [bLen-sRange+i-lagl; 
ftmp2 += buffer[bLen-sRange+i-lag] * 
buffer [bLen-sRange+i-lagl; 
ftmp3 += buffer[bLen-sRange+i] * 
buffer [bLen-sRanget+il; 


0.0 
0.0 


} 


if (ftmp2 > 0.0) { 
*cc = ftmpl*ftmpl/ftmp2; 
*gc = (float)fabs(ftmpl/ftmp2); 
*pm= (float) fabs (ftmp1) / 
( (float) sqrt (ftmp2) * (float) sqrt (ftmp3) ); 
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Packet loss concealment routine. Conceals a residual signal 
* and LP parameters. If no packet loss, update state. 


void doThePLC ( 
float *PLCresidual, /* (o) concealed residual */ 
float *PLClpc, /* (0) concealed LP parameters */ 
int PLI, /* (i) packet loss indicator 
0 - no PL, 1 = PL */ 


float *decresidual, /* (i) decoded residual */ 
float *lpc, /* (i) decoded LPC (only used for no PL) */ 
int inlag, /* (i) pitch lag */ 


iLBC Dec Inst t *iLBCdec inst 
/* (i/o) decoder instance */ 


int lag=20, randlag; 

float gain, maxcc; 

float use gain; 

float gain comp, maxcc comp, per, max per; 

int i, pick, use lag; 

float ftmp, randvec[BLOCKL MAX], pitchfact, energy; 


/* Packet Loss */ 
if (PLI == 1) ( 
iLBCdec inst->consPLICount += 1; 


/* if previous frame not lost, 
determine pitch pred. gain */ 


if (iLBCdec inst->prevPLI != 1) ( 


/* Search around the previous lag to find the 
best pitch period */ 


lag=inlag-3; 
compCorr(&maxcc, &gain, &max per, 
iLBCdec inst->prevResidual, 
lag, iLBCdec inst->blockl, 60); 
for (i=inlag-2;i<=inlag+3;i++) { 
compCorr(&maxcc comp, &gain comp, &per, 
iLBCdec inst->prevResidual, 
i, iLBCdec inst->blockl, 60); 


if (maxcc comp>maxcc) { 
maxcc-maxcc comp; 
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gain=gain comp; 
lag=i; 
max per=per; 


} 


/* previous frame lost, use recorded lag and periodicity */ 


else { 
lag=iLBCdec inst->prevLag; 
max per=iLBCdec inst->per; 


} 
/* downscaling */ 


use gain=1.0; 
if (iLBCdec inst->consPLICount*iLBCdec inst->blockl>320) 
use gain=(float) 0.9; 
else if (iLBCdec inst->consPLICount* 
iLBCdec inst->blockl>2*320) 
use gain-(float)0.7; 
else if (iLBCdec inst->consPLICount* 
iLBCdec inst->blockl>3*320) 
use gain=(float) 0.5; 
else if (iLBCdec inst->consPLICount* 
iLBCdec inst->blockl>4*320) 
use gain=(float) 0.0; 


/* mix noise and pitch repeatition */ 
ftmp-(float)sqrt (max per); 
if (ftmp>(float)0.7) 

pitchfact-(float)1.0; 
else if (ftmp»(float)0.4) 

pitchfact=(ftmp- (float)0.4)/((float)0.7-(float)0.4); 
else 

pitchfact=0.0; 


/* avoid repetition of same pitch cycle */ 
use lag-lag; 
if (lag<80) ( 
use lag=2*lag; 
) 


/* compute concealed residual */ 
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energy = 0.0; 
for (i=0; i<iLBCdec inst->blockl; i++) ( 


/* noise component */ 


iLBCdec inst->seed= (iLBCdec inst->seed*69069L+1) & 
(0x80000000L-1); 

randlag = 50 + ((signed long) iLBCdec inst-»seed)$70; 

pick = i - randlag; 


if (pick < 0) { 
randvec[i] = 
iLBCdec inst-»prevResidual[ 
iLBCdec inst->blockl+pick]; 
} else ( 
randvec[i] = randvec[pick]; 


} 


/* pitch repeatition component */ 
pick = i - use lag; 


if (pick < 0) { 
PLCresidual[i] = 
iLBCdec inst-»prevResidual[ 
iLBCdec inst->blockl+pick]; 
} else ( 
PLCresidual [i] = PLCresidual [pick]; 
} 


/* mix random and periodicity component */ 


if (i<80) 
PLCresidual[i] = use gain* (pitchfact * 
PLC resi dual [i] + 
((float)1.0 - pitchfact) * randvec[il); 
else if (i<160) 
PLCresidual[i] = (float)0.95*use gain*(pitchfact * 
PLCresidual[i] + 
((float)1.0 - pitchfact) * randvec[il); 
else 
PLCresidual[i] = (float)0.9*use gain*(pitchfact * 
PLCresidual[i] + 
((float)1.0 - pitchfact) * randvec[il); 


energy += PLCresidual[i] * PLCresidual[il; 
} 


/* less than 30 dB, use only noise */ 
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if (sqrt (energy/ (float) iLBCdec inst->blockl) < 30.0) { 


gain=0.0; 
for (i=0; i<iLBCdec inst->blockl; i++) ( 
PLCresidual [i] = randvec[i]; 


} 
/* use old LPC */ 


memcpy (PLClpc,iLBCdec inst->prevLpc, 
(LPC FILTERORDER-«1)*sizeof(float)); 


} 
/* no packet loss, copy input */ 


else { 
memcpy (PLCresidual, decresidual, 
iLBCdec inst->blockl*sizeof (float) ); 
memcpy (PLClpc, lpc, (LPC FILTERORDER+1) *sizeof (float)); 
iLBCdec inst->consPLICount = 0; 


} 


/* update state */ 


if (PLI) { 
iLBCdec inst->prevLag = lag; 
iLBCdec inst->per=max per; 

} 

iLBCdec inst->prevPLI = PLI; 

memcpy (iLBCdec inst->prevLpc, PLClpc, 
(LPC_FILTERORDER+1)*sizeof (float) ); 


memcpy (iLBCdec inst->prevResidual, PLCresidual, 
iLBCdec_inst->blockl*sizeof (float) ); 


} 


A.15. enhancer.h 


[KR KKK KKK k kk KKK KKK kok k kk OK KK KKK OK K k X KK KK kck ck kck ck kck ck ck kck ck KK 


iLBC Speech Coder ANSI-C Source Code 
enhancer.h 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 
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KKKKKKKKK kck ck X kc k Ck kc k ck KKK kck ck k kc k k kc k k kk kck ck kck ck kck ck ck KKK kck ck kck ck kck ck RARA | 


#ifndef | ENHANCER H 
#define — ENHANCER H 


#include "iLBC define.h" 


float xCorrCoef ( 


float *target, /* (i) first array */ 
float *regressor, /* (i) second array */ 
int subl /* (i) dimension arrays */ 


); 


int enhancerInterface( 
float *out, /* (0) the enhanced recidual signal */ 
float *in, /* (i) the recidual signal to enhance */ 
iLBC Dec Inst t *iLBCdec inst 
/* (i/o) the decoder state structure */ 
); 


fendif 
A.16. enhancer.c 
[KR KKK KKK k kk k kk K kk kk K kk K kk Kk kk K kk K k X kk kc KA KKK kck ck kck ck ck ck ck ck K ká OK 
iLBC Speech Coder ANSI-C Source Code 
enhancer.c 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK X ká k kc k Ck kc k ck kCk ck kck ck k kc k Ck k ck ck kk kck ck X kc k kck ck k K k k kck ck kck ck X ck ck ckckck kc KKK | 


#include <math.h> 
#include <string.h> 
#include "iLBC define.h" 
#include "constants.h" 
#include "filter.h" 


* Find index in array such that the array element with said 
* index is the element of said array closest to "value" 
* according to the sguared-error criterion 


void NearestNeighbor( 
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int *index, /* (o) index of array element closest 
to value */ 
float *array, /* (i) data array */ 


float value,/* (i) value */ 
int arlength/* (i) dimension of data array */ 


int i; 
float bestcrit,crit; 


crit-array[0]-value; 

bestcrit=crit*crit; 

*index=0; 

for (i=1; i<arlength; i++) { 
crit=array[i]-value; 
crit-crit*crit; 


if (crit«bestcrit) ( 
bestcrit=crit; 
*index=i; 


/* LES ua = em A Á—Á—À— E E a LO = * 
* compute cross correlation between seguences 
MW LE Z = L E Z u SE —————Á————————————— E B */ 
void mycorrl( 
float* corr, /* (0) correlation of segl and seq2 */ 
float* seql, /* (i) first sequence */ 
int diml, /* (i) dimension first segl */ 
const float *seg2, /* (i) second sequence */ 
int dim2 /* (i) dimension seq2 */ 
)t 
int i,j; 
for (i20; i<=diml-dim2; i++) { 
corr[i]=0.0; 
for (j=0; j«dim2; j++) { 
corr[i] += seql[i+3] * seq2[jl; 
} 
} 
} 
/* a ILE IR MR LE EA m A m n LE at i g ee id ad * 
* upsample finite array assuming zeros outside bounds 
MS DW Sa LL ox ko AS E A Te A a RT */ 
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void enh upsample( 


float* useql, /* (0) upsampled output sequence */ 
float* segl,/* (i) unupsampled sequence */ 

int diml, /* (i) dimension seql */ 

int hfl /* (i) polyphase filter length=2*hfl+1 */ 


float *pu,*ps; 

int i,j,k,q,filterlength,hf12; 

const float *polyp[ENH UPS0]; /* pointers to 
polyphase columns */ 

const float *pp; 


/* define pointers for filter */ 
filterlength=2*hf1+1; 


if ( filterlength > dimi ) { 
hfl2-(int) (dim1/2); 
for (j=0; j«ENH UPSO; j++) ( 
polyp[jl-polyphaserTbl-j*filterlength-*hfl-hf12; 
} 
hfl=hf12; 
filterlength=2*hf1+1; 
) 
else ( 
for (3=0; j«ENH UPSO; j++) ( 
polypl[j]=polyphaserTbl+j*filterlength; 


} 
/* filtering: filter overhangs left side of sequence */ 


pu=useql; 
for (i=hfl; i<filterlength; i++) { 
for (j=0; j«ENH UPSO; j++) ( 
*pu=0.0; 
pp = polyp[jl; 
ps = seql+i; 
for (k=0; k«-i; k++) { 
*pu += *ps-- * *pp++; 
) 
pu++; 


) 
/* filtering: simple convolution=inner products */ 


for (i-filterlength; i<diml; i++) { 
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for (j=0; j<ENH UPS0; j++) { 
*pu=0.0; 
pp = polyp[jl; 
ps = seql+i; 
for (k=0; k<filterlength; k++) { 


*pu += *ps-- * *pptt; 
} 
pu++; 


} 


/* filtering: filter overhangs right side of sequence */ 


for (q-1; q<=hfl; q++) { 
for (j=0; j<ENH UPS0; j++) ( 
*pu=0.0; 
pp = polyp[jl*qa: 
ps = segl+diml-1; 
for (k=0; k<filterlength-g; k++) { 
*pu += *ps-- * *pptt; 
} 
pu++; 
) 
) 
) 
/* A A A Se A ee eR TN a dr * 
* find segment starting near idatatestSegPos that has highest 
* correlation with idata+centerStartPos through 
* idata+centerStartPos+ENH BLOCKL-1 segment is found at a 
* resolution of ENH UPSO times the original of the original 
* sampling rate 
m -———— M (—— ——————— S a ————— Á'—————————— m n E */ 


void refiner ( 


float *seg, /* (0) segment array */ 

float *updStartPos, /* (o) updated start point */ 
float* idata, /* (i) original data buffer */ 

int idatal, /* (i) dimension of idata */ 

int centerStartPos, /* (i) beginning center segment */ 


float estSegPos,/* 


float period /* (i) 


estimated beginning other segment */ 
estimated pitch period */ 


int estSegPosRounded, searchSegStartPos, searchSegEndPos, corrdim; 


int tloc,tloc2,i,st,en,fraction; 
float vect[ENH VECTL],corrVec [ENH CORRDIM],maxv; 
float corrVecUps [ENH CORRDIM*ENH UPS0]; 
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/* defining array bounds */ 
estSegPosRounded= (int) (estSegPos - 0.5); 
searchSegStartPos=estSegPosRounded-ENH SLOP; 


if (searchSegStartPos<0) ( 
searchSegStartPos=0; 


) 
searchSegEndPos-estSegPosRounded-*ENH SLOP; 


if (searchSegEndPos+ENH BLOCKL >= idatal) { 
searchSegEndPos-idatal-ENH BLOCKL-1; 
} 


corrdim=searchSegEndPos-searchSegStartPost+tl; 


/* compute upsampled correlation (corr33) and find 
location of max */ 


mycorrl (corrVec, idatatsearchSegStartPos, 
corrdim+ENH BLOCKL-1, idata+centerStartPos, ENH BLOCKL); 
enh upsample (corrVecUps, corrVec, corrdim, ENH FLO); 
tloc=0; maxv=corrVecUps [0]; 
for (i=1; i<ENH UPSO*corrdim; i++) ( 


if (corrVecUps[i]»maxv) ( 
tloc=i; 
maxv-corrVecUps[il; 


} 


/* make vector can be upsampled without ever running outside 
bounds */ 


*updStartPos= (float) searchSegStartPos + 
(float)tloc/ (float) ENH_UPSO+ (float)1.0; 
tloc2=(int) (tloc/ENH_UPSO); 


if (tloc>tloc2*ENH_UPSO) ( 
tloc2++; 


) 
st=searchSegStartPos+tloc2-ENH_FLO; 


if (st<0) ( 

memset (vect,0,-st*sizeof(float)); 

memcpy (&vect [-st],idata, (ENH VECTL+st)*sizeof(float)); 
) 


else ( 
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en=st+ENH VECTL; 


if (en>idatal) { 
memcpy (vect, &idata[st], 
(ENH VECTL- (en-idatal) )*sizeof (float)); 
memset (&vect [ENH VECTL- (en-idatal)], 0, 
(en-idatal)*sizeof(float)); 
} 
else ( 
memcpy (vect, &idata[st], ENH VECTL*sizeof(float)); 
} 
} 


fraction-tloc2*ENH UPSO-tloc; 


/* compute the segment (this is actually a convolution) */ 


mycorrl (seg, vect, ENH_VECTL, polyphaserTbl+(2*ENH FL0+1)*fraction, 
2*ENH_FLO+1); 


void smath( 


float *odata, /* (0) smoothed output */ 

float *sseg,/* (i) said second sequence of waveforms */ 
int hl, /* (i) 2*hl+1 is sseq dimension */ 
float alpha0/* (i) max smoothing energy fraction */ 


int i,k; 

float w00,w10,w11,A,B,C,*psseq,err,errs; 

float surround[BLOCKL MAX]; /* shape contributed by other than 
current */ 

float wt[2*ENH HL+1]; /* waveform weighting to get 
surround shape */ 

float denom; 


/* create shape of contribution from all waveforms except the 
current one */ 


for (i-1; i<=2*hl+1; i++) { 
wt[i-1] = (float)0.5*(1 - (float)cos(2*PI*i/(2*hl+2))); 
} 
wt[hl]20.0; /* for clarity, not used */ 
for (i20; i«ENH BLOCKL; i++) { 
surround[il-sseq[i]l*wt[0]; 
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for (k=1; k<hl; k++) { 
psseg=sseg+k*ENH BLOCKL; 
for(i=0;i<ENH BLOCKL; i++) { 
surround [i]+=psseg[i]l*wt[k]; 
} 
} 
for (k=hl+1; k<=2*hl; k++) { 
psseg=sseg+k*ENH BLOCKL; 
for (i=0;i<ENH BLOCKL; i++) { 
surround [i]+=psseg[i]l*wt[k]; 
} 
} 


/* compute some inner products */ 


w00 w10 w11 0.0; 

psseg=sseg+hl*ENH BLOCKL; /* current block  */ 

for (i=0; i<ENH BLOCKL; i++) { 
w00+=psseg[il*pssegli]; 
wli+=surround[i]*surround[i]; 
wl0+=surround[i]*psseq[il]; 


} 


if (fabs(w11) < 1.0) { 
wl1=1.0; 


} 
C = (float)sqrt( w00/w11); 
/* first try enhancement without power-constraint */ 


errs=0.0; 

psseg=sseg+hl*ENH BLOCKL; 

for (i=0; i<ENH BLOCKL; i++) ( 
odata[i]-C*surround[i]; 
err-psseq[i]-odata[il; 
errst=err*err; 


} 
/* if constraint violated by first try, add constraint */ 


if (errs > alpha0 * w00) ( 
if ( w00 < 1) { 
w00=1; 
} 
denom = (wl1l*w00-w10*w10)/(w00*w00); 


if (denom > 0.0001) { /* eliminates numerical problems 
for if smooth */ 
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A = (float)sqrt( (alpha0- alpha0*alpha0/4)/denom); 
B = -alpha0/2 - A * w10/w00; 
B = B+1; 


} 
else { /* essentially no difference between cycles; 
smoothing not needed */ 
A= 0.0; 
B= 1.0; 


} 


/* create smoothed sequence */ 


psseg=sseg+hl*ENH BLOCKL; 
for (i=0; i<ENH BLOCKL; i++) ( 
odata[i]-A*surround[i]-*B*psseq[il; 


/ * ———————————————— ———————————————————— == * 
* get the pitch-synchronous sample sequence 
m A a A ee E en a SMS E SB 5 === A O A A ===> */ 
void getsseq( 
float *sseg, /* (o) the pitch-synchronous sequence */ 
float *idata, /* (i) original data */ 
int idatal, /* (i) dimension of data */ 
int centerStartPos, /* (i) where current block starts */ 
float *period, /* (i) rough-pitch-period array */ 
float *plocs, /* (i) where periods of period array 
are taken */ 
int periodl, /* (i) dimension period array */ 
int hl /* (i) 2*h1+1 is the number of sequences */ 


int i,centerEndPos,g; 

float blockStartPos[2*ENH HL+1]; 

int lagBlock[2*ENH HL-*1]; 

float plocs2[ENH PLOCSL]; 

float *psseg; 
centerEndPos=centerStartPos+ENH BLOCKL-1; 


/* present */ 


NearestNeighbor (lagBlock+hl,plocs, 
(float)0.5* (centerStartPos+tcenterEndPos), periodl); 


blockStartPos [hl]=(float)centerStartPos; 
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psseg=sseg+ENH BLOCKL*hl; 
memcpy (psseg, idata+centerStartPos, ENH_BLOCKL*sizeof (float)); 


/* past */ 


for (q=hl-1; q»-0; q--) { 
blockStartPos[ql=blockStartPos[q+1]-period[lagBlock[q+1]]; 
NearestNeighbor (lagBlock+q,plocs, 
blockStartPos [g]+ 
ENH BLOCKL HALF-period[lagBlock[g+1]], periodl); 


if (blockStartPos[q]-ENH OVERHANG>=0) ( 
refiner(sseq+q*ENH BLOCKL, blockStartPos+q, idata, 
idatal, centerStartPos, blockStartPos[g], 
period[lagBlock[q+111); 
} else ( 
psseg=sseg+g*ENH BLOCKL; 
memset (psseq, 0, ENH BLOCKL*sizeof(float)); 


} 
/* future */ 


for (i=0; i<periodl; i++) { 
plocs2[il=plocs[il-period[il; 


for (q=hl+1; q«-2*hl; g++) ( 
NearestNeighbor (lagBlock+q,plocs2, 
blockStartPos [g-1]+ENH BLOCKL HALF,periodl); 


blockStartPos[q]=blockStartPos[q-1]+period[lagBlock[q]]; 
if (blockStartPos[q]+ENH BLOCKL+ENH OVERHANG<idatal) { 
refiner (sseq+ENH_BLOCKL*q, blockStartPos+q, idata, 
idatal, centerStartPos, blockStartPos[g], 
period[lagBlock[q]]); 
} 
else { 
psseq=sseq+q*ENH BLOCKL; 
memset (psseq, 0, ENH BLOCKL*sizeof(float)); 


* perform enhancement on idata+centerStartPos through 
* idatatcenterStartPos+ENH BLOCKL-1 
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void enhancer ( 


float *odata, /* (0) smoothed block, dimension blockl */ 

float *idata, /* (i) data buffer used for enhancing */ 

int idatal, /* (i) dimension idata */ 

int centerStartPos, /* (i) first sample current block 
within idata */ 

float alphaO0, /* (i) max correction-energy-fraction 
(in [0,1]) */ 

float *period, /* (i) pitch period array */ 

float *plocs, /* (i) locations where period array 
values valid */ 

int periodl /* (i) dimension of period and plocs */ 


float sseq[ (2*ENH_HL+1) *ENH BLOCKL]; 


/* get said second sequence of segments */ 


getsseg(sseg,idata,idatal,centerStartPos,period, 
plocs,periodl,ENH HL); 


/* compute the smoothed output from said second seguence */ 


smath(odata,sseg,ENH HL,alpha0); 


/* = NE * 
* cross correlation 
Ku o < u Be Em el ua ee sn Eee umele meal */ 


float xCorrCoef ( 


float *target, /* (i) first array */ 

float *regressor, /* (i) second array */ 

int subl /* (i) dimension arrays */ 
) 1 

int i; 


float ftmpl, ftmp2; 


ftmpl = 0.0; 

ftmp2 = 0.0; 

for (i=0; i<subl; i++) { 
ftmpl += target [i]*regressor[i]; 
ftmp2 += regressor[i]*regressor[il; 


} 


if (ftmpl > 0.0) { 
return (float) (ftmpl*ftmpl/ftmp2); 
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else ( 
return (float)0.0; 


/* II Lost eo l m AA E RA ee Bi A iat B ee ee AE mé m * 
* interface for enhancer 
Rs a EA SAA E A ee */ 
int enhancerInterface( 
float *out, /* (o) enhanced signal */ 
float *in, /* (i) unenhanced signal */ 


iLBC Dec Inst t *iLBCdec inst /* (i) buffers etc */ 


float *enh buf, *enh period; 

int iblock, isample; 

int lag=0, ilag, i, ioffset; 

float cc, maxcc; 

float ftmpl, ftmp2; 

float *inPtr, *enh bufPtrl, *enh bufPtr2; 
float plc pred[ENH BLOCKL]; 


float lpState[6], downsampled[ (ENH NBLOCKS*ENH BLOCKL+120)/2]; 
int inLen-ENH NBLOCKS*ENH BLOCKL+120; 
int start, plc blockl, inlag; 


enh buf-iLBCdec inst->enh buf; 
enh period-iLBCdec inst->enh period; 


memmove (enh buf, &enh buf[iLBCdec inst->blockl], 
(ENH BUFL-iLBCdec inst->blockl)*sizeof (float)); 


memcpy (&enh buf [ENH BUFL-iLBCdec inst->blockl], in, 
iLBCdec inst->blockl*sizeof (float)); 


if (iLBCdec inst->mode==30) 
plc blockl=ENH BLOCKL; 
else 
plc blockl=40; 


/* when 20 ms frame, move processing one block */ 
ioffset=0; 
if (iLBCdec inst->mode==20) ioffset-1; 


i-3-ioffset; 


memmove (enh period, &enh periodlil, 
(ENH NBLOCKS TOT-i)*sizeof(float)); 
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/* Set state information to the 6 samples right before 
the samples to be downsampled. */ 


memcpy (IpState, 
enh buf+(ENH NBLOCKS EXTRA+ioffset)*ENH BLOCKL-126, 
6*sizeof(float)); 


/* Down sample a factor 2 to save computations */ 
DownSample (enh buf+(ENH NBLOCKS EXTRA+ioffset)*ENH BLOCKL-120, 


lpFilt coefsTbl, inLen-ioffset*ENH BLOCKL, 
lpState, downsampled); 


/* Estimate the pitch in the down sampled domain. */ 
for (iblock = 0; iblock<ENH NBLOCKS-ioffset; iblock++) ( 


lag = 10; 
maxcc = xCorrCoef (downsampled+60+iblock* 
ENH BLOCKL HALF, downsampled+60+iblock* 
ENH BLOCKL HALF-lag, ENH BLOCKL HALF); 
for (ilag-11; ilag<60; ilag++) { 
cc = xCorrCoef (downsampled+60+iblock* 
ENH BLOCKL HALF, downsampled+60+iblock* 
ENH BLOCKL HALF-ilag, ENH BLOCKL HALF); 


if (cc > maxcc) ( 
maxcc = cc; 
lag = ilag; 


} 


/* Store the estimated lag in the non-downsampled domain */ 
enh period[iblock+ENH NBLOCKS EXTRA+ioffset] = (float)lag*2; 


/* PLC was performed on the previous packet */ 
if (iLBCdec inst->prev enh pl==1) { 


inlag= (int)enh period[ENH NBLOCKS EXTRA+ioffset]; 


lag = inlag-1; 
maxcc = xCorrCoef (in, in+lag, plc blockl); 
for (ilag-inlag; ilag<=inlag+1; ilag++) { 

cc = xCorrCoef (in, in+ilag, plc blockl); 
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if (cc > maxcc) ( 
maxcc = CC; 
lag = ilag; 
} 
enh period[ENH NBLOCKS EXTRA+ioffset-1]=(float)lag; 
/* compute new concealed residual for the old lookahead, 
mix the forward PLC with a backward PLC from 
the new frame */ 
inPtr-&in[lag-1]; 
enh bufPtrl-&plc pred[plc blockl-1]; 


if (lag>plc blockl) { 
start-plc blockl; 


} else ( 
start=lag; 

} 

for (isample = start; isample>0; isample--) ( 
*enh bufPtrl-- = *inPtr--; 


} 


enh bufPtr2=&enh buf [ENH BUFL-1-iLBCdec inst->blockl]; 

for (isample = (plc blockl-1-lag); isample>=0; isample--) ( 
*enh bufPtrl-- = *enh bufPtr2--; 

) 


/* limit energy change */ 
ftmp2=0.0; 
ftmpl=0.0; 
for (i=0;i<ple blockl;i++) { 
ftmp2+=enh buf [ENH BUFL-1-iLBCdec inst->blockl-i]* 
enh buf[ENH BUFL-1-iLBCdec inst->blockl-i]; 
ftmpl+=plc pred[il*plc pred[i]; 
} 
ftmpl-(float)sqrt(ftmpl/(float)plc blockl); 
ftmp2= (float) sqrt (ftmp2/(float)plc blockl); 
if (ftmpl>(float)2.0*ftmp2 && ftmpl>0.0) { 
for (i=0;i<ple blockl-10;i++) { 
plc pred[i]*=(float)2.0*ftmp2/ftmpl; 
} 
for (i=plc blockl-10;i«plc blockl;i++) { 
plc pred[i]*=(float) (i-plc blockl+10)* 
((float)l.0-(float)2.0*ftmp2/ftmpl)/(float) (10)+ 
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(float)2.0*ftmp2/ftmpl; 


} 


enh bufPtrl=senh buf [ENH BUFL-1-iLBCdec inst->blockl]; 
for (i=0; i<plc blockl; i++) ( 


ftmpl = (float) (i+1) / (float) (plc blockl+1); 
*enh bufPtrl *= ftmpl; 
*enh bufPtrl += ((float)1.0-ftmpl)* 


plc pred[ple blockl-1-i]; 
enh bufPtrl--; 


} 


if (iLBCdec inst->mode==20) ( 
/* Enhancer with 40 samples delay */ 
for (iblock = 0; iblock<2; iblock++) ( 
enhancer (out+iblock*ENH BLOCKL, enh buf, 
ENH BUFL, (5+iblock) *ENH BLOCKL+40, 
ENH ALPHAO, enh period, enh plocsTbl, 
ENH NBLOCKS TOT); 
} 
} else if (iLBCdec inst->mode==30) { 
/* Enhancer with 80 samples delay */ 
for (iblock = 0; iblock<3; iblock++) ( 
enhancer (out+iblock*ENH BLOCKL, enh buf, 
ENH BUFL, (4+iblock) *ENH BLOCKL, 
ENH ALPHAO, enh period, enh plocsTbl, 
ENH NBLOCKS TOT); 


return (lag*2); 


A.17.  filter.h 
[KR KKK kok k k kk k kk K kk kok k kk K kk K OK kk KC Ck K k RRA RRA RRA RRA RRA ck kckck ck k ká OK 
iLBC Speech Coder ANSI-C Source Code 
filter.h 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK X ká k kc k Ck kc k ck kCk ck k kc k k kc k k kc k kk kc k ck X kc k kck ck ck kck ck kck ck kck RRA ARA RARAS 
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#ifndef  iLBC FILTER H 
#define _ iLBC FILTER H 


void AllPoleFilter( 


float *InOut, /* 


float *Coef,/* (i) 


int lengthInOut, /* 


int orderCoef ce 
); 
void AllZeroFilter ( 
float *In, [5 


float *Coef,/* (i) 


int lengthInOut, /* 


int orderCoef,  /* 
float *Out /* 
); 
void ZeroPoleFilter( 
float *In, /* 


float *ZeroCoef,/* 


float *PoleCoef,/* 


int lengthInOut, /* 


int orderCoef,  /* 
float *Out /* 
); 
Andersen, et al. 
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(i/o) on entrance InOut[-orderCoef] to 
InOut[-1] contain the state of the 
filter (delayed samples). InOut[0] to 


InOut [lengthInOut-1] contain the filter 
input, on en exit InOut[-orderCoef] to 
InOut[-1] is unchanged and InOut[0] to 
InOut[lengthInOut-1] contain filtered 
samples */ 
filter coefficients, 
to be 1.0 */ 
number of input/output samples */ 
number of filter coefficients */ 


Coef[0] is assumed 
(i) 
(i) 


(i) In[0] to In[lengthInOut-1] contain 
filter input samples */ 

filter coefficients (Coef[0] 
to be 1.0) */ 

(i) number of input/output samples */ 

(i) number of filter coefficients */ 

(i/o) on entrance Out[-orderCoef] to Out[-1] 
contain the filter state, on exit Out[0] 
to Out[lengthInOut-1] contain filtered 


samples */ 


is assumed 


In[0] to In[lengthInOut-1] contain filter 
input samples In[-orderCoef] to In[-1] 
contain state of all-zero section */ 
filter coefficients for all-zero 

section (ZeroCoef[0] is assumed to 

be 1.0) */ 

filter coefficients for all-pole section 
(ZeroCoef[0] is assumed to be 1.0) */ 

(i) number of input/output samples */ 

(i) number of filter coefficients */ 

(i/o) on entrance Out[-orderCoef] to Out[-1] 
contain state of all-pole section. On 
exit Out[0] to Out[lengthInOut-1] 
contain filtered samples */ 


Experimental 
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void DownSample ( 


float  *In, /* (i) input samples */ 
float  *Coef, /* (i) filter coefficients */ 
int lengthIn, /* (i) number of input samples */ 
float  *state, /* (i) filter state */ 
float  *Out /* (0) downsampled output */ 
); 
fendif 


A.18. filter.c 
[KR KKK kok k kok k k kk k kok kok K kk K kk K OK kk KC Ck K k X kk RAR KKK KKK kck ck ck kck ck k ká kk 
iLBC Speech Coder ANSI-C Source Code 
filter.c 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK ká k kc k Ck kk kCk ck kck ck k kc k k kc k ck k kk kck ck KKK KKK k kc k ck kck ck kck ck kck ck RARA | 


#include "iLBC define.h" 


/ * HA o an fo en a N A O M — EE * 
* all-pole filter 
T n ESS > n eE a ea m m né jé jí rE Ka ea a m O n n G SS eS */ 


void AllPoleFilter( 

float *InOut, /* (i/o) on entrance InOut [-orderCoef] to 
InOut[-1] contain the state of the 
filter (delayed samples). InOut[0] to 
InOut[lengthInOut-1] contain the filter 
input, on en exit InOut[-orderCoef] to 
InOut[-1] is unchanged and InOut[0] to 
InOut[lengthInOut-1] contain filtered 
samples */ 

float *Coef,/* (i) filter coefficients, Coef[0] is assumed 
to be 1.0 */ 

int lengthInOut,/* (i) number of input/output samples */ 

int orderCoef /* (i) number of filter coefficients */ 


int n,k; 
for(n=0;n<lengthInOut;n++) { 


for (k=1; k<=orderCoef; k++) { 
*InOut -= Coef[k]*InOut[-k]; 
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} 


InOut++; 
} 
} 
/* o LIE u iL EL SL LL mt M E OI nS LL L L HS * 
* all-zero filter 
NS II da HL L unu BL LZ u P P */ 


void AllZeroFilter( 

float *In, /* (i) In[0] to In[lengthInOut-1] contain 
filter input samples */ 

float *Coef,/* (i) filter coefficients (Coef[0] is assumed 
to be 1.0) */ 

int lengthInOut,/* (i) number of input/output samples */ 

int orderCoef, /* (i) number of filter coefficients */ 

float *Out /* (i/o) on entrance Out[-orderCoef] to Out[-1] 
contain the filter state, on exit Out[0] 
to Out[lengthInOut-1] contain filtered 
samples */ 


int n,k; 


for(n=0;n<lengthInOut;n++) { 
*Out = Coef[0]*In[0]; 
for (k=1; k<=orderCoef; k++) { 
*Out += Coef[k]*In[-k]; 
} 


Out++; 
Intt; 
} 
} 
/* —— UE o mí * 
* pole-zero filter 
Ke So A en E SL ILL A a E l č n a Čen ee née */ 


void ZeroPoleFilter( 

float *In, /* (i) In[0] to In[lengthInOut-1] contain 
filter input samples In[-orderCoef] to 
In[-1] contain state of all-zero 
section */ 

float *ZeroCoef,/* (i) filter coefficients for all-zero 
section (ZeroCoef[0] is assumed to 
be 1.0) */ 

float *PoleCoef,/* (i) filter coefficients for all-pole section 
(ZeroCoef[0] is assumed to be 1.0) */ 

int lengthInOut,/* (i) number of input/output samples */ 
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int orderCoef, /* (i) number of filter coefficients */ 

float *Out /* (i/o) on entrance Out [-orderCoef] to Out[-1] 
contain state of all-pole section. On 
exit Out[0] to Out [lengthInOut-1] 
contain filtered samples */ 


AllZeroFilter (In, ZeroCoef, lengthInOut, orderCoef, Out) ; 
AllPoleFilter (Out, PoleCoef, lengthInOut, orderCoef) ; 


/* LEE L S EI a a eS E L El C EI E nm ns + * 
* downsample (LP filter and decimation) 
k T E = — */ 


void DownSample ( 


float  *In, /* (i) input samples */ 
float  *Coef, /* (i) filter coefficients */ 
int lengthIn, /* (i) number of input samples */ 
float  *state,  /* (i) filter state */ 
float  *Out /* (0) downsampled output */ 
)t 
float o; 


float *Out_ptr = Out; 
float *Coef ptr, *In_ptr; 
float *state ptr; 

int i, j, stop; 


/* LP filter and decimate at the same time */ 
for (i = DELAY DS; i < lengthIn; i+=FACTOR DS) 
| Coet ptr = &Coef[0]; 
In ptr = &In[il; 
state ptr = &state[FILTERORDER DS-2]; 
o = (float)0.0; 
stop = (i < FILTERORDER DS) ? i + 1 : FILTERORDER DS; 
for (j = 0; j < stop; j++) 
o += *Coef ptr++ * (*In ptr--); 


for (j = i + 1; j < FILTERORDER DS; j++) 


o += *Coef ptr++ * (*state ptr--); 
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*Out ptr++ = o; 
} 


/* Get the last part (use zeros as input for the future) */ 


for (i=(lengthIn+FACTOR DS); i<(lengthIn+DELAY DS); 
i+=FACTOR DS) { 


o=(float) 0.0; 


if (i<lengthIn) ( 
Coet ptr = £Coef [0]; 
In ptr = &In[il; 
for (j=0; j«FILTERORDER DS; j++) { 
o += *Coef ptr++ * (*Out ptr--); 
} 
} else ( 
Coet ptr = &Coef[i-lengthIn]; 
In ptr = &In[lengthIn-1]; 
for (j=0; j<FILTERORDER DS- (i-lengthIn); j++) I 
o += *Coef ptr++ * (*In ptr--); 
} 
} 
*Out_ptrt++ = o; 


} 
A.19. FrameClassify.h 
[RR KKK KKK KKK k kk KK KKK k kk K kk K KK KK OK KK KK KK kck ck kck ck KKK KK OK 
iLBC Speech Coder ANSI-C Source Code 
FrameClassify.h 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK X ká k kc k Ck kc k k kk kck ck K kc k OK kck ck kck OK OK OK KK KK | 


#ifndef __iLBC_FRAMECLASSIFY_H 
#define __iLBC_FRAMECLASSIFY_H 


int FrameClassify ( /* index to the max-energy sub-frame */ 
iLBC_Enc_Inst_t *iLBCenc_inst, 
/* (i/o) the encoder state structure */ 
float *residual /* (i) lpc residual signal */ 
); 
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#endif 


A.20. FrameClassify.c 


[RR KKK KKK k kk k kk k kk k kk K kk K kk K OK K K KX KA KKK K KKK KKK KKK KKK KKKKKKKK KK 


iLBC Speech Coder ANSI-C Source Code 
FrameClassify.c 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKK ká X ká RAR RAR RAR kck ck k kk k kc k ck kk kck ck kck ck kck ck ck KKK kck ck KKK XK XNXX | 


#include "iLBC define.h" 


int FrameClassify( /* index to the max-energy sub-frame */ 
iLBC Enc Inst t *iLBCenc inst, 
/* (i/o) the encoder state structure */ 
float *residual /* (i) lpc residual signal */ 


float max ssqEn, fssgEn[NSUB MAX], bssqEn[NSUB MAX], *pp; 

int n, l, max ssqEn n; 

const float ssqEn_win[NSUB_MAX-1]={ (float)0.8, (float)0.9, 
(float)1.0,(float)0.9,(float)0.8}; 

const float sampEn_win[5]={(float)1.0/(float)6.0, 
(float)2.0/(float)6.0, (float)3.0/ (float) 6.0, 
(float) 4.0/(f£loat)6.0, (float)5.0/(float)6.0); 


== 


/* init the front and back energies to zero */ 


memset (fssgEn, 0, NSUB_MAX*sizeof (float)); 
memset (bssgEn, 0, NSUB_MAX*sizeof (float)); 


/* Calculate front of first segence */ 


n=0; 

pp=residual; 

for (1=0; 1<5; 1++) ( 
fssgEn[n] += sampEn_win[1] * (*pp) * (*pp); 
pptt; 

) 

for (125; 1<SUBL; 1++) { 
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fssqEn[n] += (*pp) * (*pp); 
pptt; 
) 


/* Calculate front and back of all middle sequences */ 


for (n=1; n«iLBCenc inst->nsub-l; n++) ( 
pp=residual+n*SUBL; 
for (120; 1<5; 1++) { 
fssgEn[n] += sampEn win[l] * (*pp) * (*pp); 
bssgEn[n] += (*pp) * (*pp); 
pptt; 


for (1=5; 1<SUBL-5; 1++) ( 
fssqEn[n] += (*pp) * (*pp); 
bssqEn[n] += (*pp) * (*pp); 
pptt; 


for (1=SUBL-5; 1<SUBL; 1++) { 
fssgEn[n] += (*pp) * (*pp); 
bssqEn[n] += sampEn win[SUBL-1-1] * (*pp) * (*pp); 
pptt; 


) 
/* Calculate back of last segence */ 


n=iLBCenc inst->nsub-l; 
pp=residual+n*SUBL; 
for (120; 1<SUBL-5; 1++) ( 
bssqEn[n] += (*pp) * (*pp); 
pptt; 
) 
for (1=SUBL-5; 1<SUBL; 1++) { 
bssqEn[n] += sampEn win[SUBL-1-1] * (*pp) * (*pp); 
pptt; 


} 


/* find the index to the weighted 80 sample with 
most energy */ 


if (iLBCenc inst->mode==20) 
else 


max ssqEn-(fssqgEn[0]-*bssqgEn[1])*ssqEn win[l]; 
max ssgEn n-1; 
for (n=2; n<iLBCenc inst->nsub; n++) ( 
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l++; 
if ((fssqEn[n-1]-*bssqEn[n])*ssqEn win[l] > max ssqEn) { 
max ssqEn-(fssqEn[n-1]-*bssqEn[n]) * 
ssqEn win[ll; 


max ssgEn n=n; 


return max ssqEn n; 


A.21.  gainquant.h 
(Kk k kok k k kk k kk K kok kok k kk K kk K k kk K k K KX KX kck ck kc k ck KKK K X 
iLBC Speech Coder ANSI-C Source Code 
gainguant.h 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK X ká X kc k Ck kc k ck kc k ck kck ck k kk Ck kc k kk kck ck K kc k kck ck ck KKK KKK KKK KKK KKK KKK | 


#ifndef __iLBC GAINQUANT H 
#define __iLBC GAINQUANT H 


float gainquant(/* (o) quantized gain value */ 


float in, /* (i) gain value */ 
float maxIn,/* (i) maximum of gain value */ 
int cblen, /* (i) number of quantization indices */ 
int *index /* (o) quantization index */ 
); 
float gaindequant( /* (0) quantized gain value */ 
int index, /* (i) quantization index */ 
float maxIn,/* (i) maximum of unquantized gain */ 
int cblen /* (i) number of quantization indices */ 
); 
#endif 


A.22. gainquant.c 


[RR KKK KKK KKK k kk K kk kok K kk K kk K KK KKK KK KK KK OK kck ck KK KK KK KK 


iLBC Speech Coder ANSI-C Source Code 
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gainquant.c 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK k ká X kc k Ck kc k ck kCk ck k kk X kk k kc k Ck kc k ck kck ck X kc k kck ck k KKK kck ck kck ck kck ck ckckck ck kk | 


finclude «string.h» 
#include <math.h> 
#include "constants.h" 
#include "filter.h" 
/* = * 
* quantizer for the gain in the gain-shape coding of residual 
Kim ———————Á— ——Á——M————— —————— ——— ——— */ 
float gainquant(/* (o) quantized gain value */ 
float in, /* (i) gain value */ 
float maxIn,/* (i) maximum of gain value */ 
int cblen, /* (i) number of quantization indices */ 
int *index /* (o) quantization index */ 


int i, tindex; 
float minmeasure,measure, *cb, scale; 


/* ensure a lower bound on the scaling factor */ 


scale=maxIn; 


if (scale<0.1) ( 


} 


scale=(float)0.1; 


/* select the guantization table */ 


if (cblen == 8) { 


cb = gain sa3Tbl; 


} else if (cblen == 16) 1 


cb = gain sq4Tbl; 


} else { 


} 


cb = gain sq5Tbl; 


/* select the best index in the guantization table */ 


minmeasure=10000000.0; 
tindex=0; 


for 


(i=0; i<cblen; i++) { 
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measure-(in-scale*cb[i])*(in-scale*cb[il); 


if (measure<minmeasure) { 
tindex=i; 
minmeasure=measure; 
} 
} 


*index=tindex; 
/* return the guantized value */ 


return scale*cb[tindex]; 


/ * LR nd O NÍ a C a s e * 
* decoder for quantized gains in the gain-shape coding of 
residual 
Kose O n č a l C aŠ E a MS n S ES G née ——————  ——————— == */ 
float gaindequant( /* (o) quantized gain value */ 
int index, /* (i) quantization index */ 
float maxIn,/* (i) maximum of unquantized gain */ 
int cblen /* (i) number of quantization indices */ 


float scale; 
/* obtain correct scale factor */ 
Scale-(float)fabs (maxIn); 


if (scale«0.1) { 
scale=(float)0.1; 
} 


/* select the quantization table and return the decoded value */ 


if (cblen==8) { 

return scale*gain sq3Tbl[index]; 
} else if (cblen==16) ( 

return scale*gain sq4Tbl[index]; 
} 
else if (cblen==32) { 

return scale*gain_sq5Tbl [index]; 


} 


return 0.0; 
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A.23. getCBvec.h 
(kok k kok k k kk k kk k kk kok K kk K kk K kk kk K k K k KKK RAR KKK KKK KKK ck kck ck kck ck kkk 
iLBC Speech Coder ANSI-C Source Code 
getCBvec.h 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK X ká X kc k Ck kk kCk ck kck ck kck ck k kc k ck kc k ck kck ck KKK k kc k k kc k ck kck ck KKK KKK RARA RARAS 


#ifndef | iLBC GETCBVEC H 
#define | iLBC GETCBVEC H 


void getCBvec ( 


float *cbvec, /* (0) Constructed codebook vector */ 
float *mem, /* (i) Codebook buffer */ 

int index, /* (i) Codebook index */ 

int lMem, /* (i) Length of codebook buffer */ 
int cbveclen/* (i) Codebook vector length */ 


) ; 
fendif 
A.24. getCBvec.c 
(Kk k KKK k kk kk k kk kk k kk K kk K OK k k K k KKK RARA RRA RRA RRA ARA ARA RAR 
iLBC Speech Coder ANSI-C Source Code 
getCBvec.c 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKK kCk ck kck ck k kc k Ck kc k ck kCk ck k kc k k kk k kk kk kck ck k kc k kck ck kckck ck kck ck kck ck kck ck ckckck kc ká | 


#include "iLBC define.h" 
#include "constants.h" 
#include <string.h> 


/* ————————— a a a ee ls ————— PP * 
* Construct codebook vector for given index. 
Z E m ———— ————————————————————————— */ 


void getCBvec ( 
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float *cbvec, /* (0) Constructed codebook vector */ 
float *mem, /* (i) Codebook buffer */ 

int index, /* (i) Codebook index */ 

int lMem, /* (i) Length of codebook buffer */ 
int cbveclen/* (i) Codebook vector length */ 


int j, k, n, memInd, sFilt; 
float tmpbuf[CB MEML]; 

int base size; 

int ilow, ihigh; 

float alfa, alfal; 


/* Determine size of codebook sections */ 


base size-1Mem-cbveclen-t1; 
if (cbveclen==SUBL) ( 


base size+=cbveclen/2; 


) 
/* No filter -> First codebook section */ 
if (index<lMem-cbveclen+1) { 
/* first non-interpolated vectors */ 
k=index+cbveclen; 
/* get vector */ 
memcpy (cbvec, mem+lMem-k, cbveclen*sizeof(float)); 
) else if (index < base size) ( 


k=2* (index- (IMem-cbveclen+1) ) +cbveclen; 


ihigh=k/2; 
ilow=ihigh-5; 


/* Copy first noninterpolated part */ 
memcpy (cbvec, mem+l1Mem-k/2, ilow*sizeof(float)); 
/* interpolation */ 


alfal-(float)0.2; 


alfa=0.0; 
for (j=ilow; j<ihigh; j++) ( 
cbvec[j]=((float)l.0-alfa) *mem[1Mem-k/2+3]+ 


alfa*mem[lMem-k+jl; 
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alfa+=alfal; 
) 


/* Copy second noninterpolated part */ 


memcpy (cbvec+ihigh, mem+lMem-k+ihigh, 
(cbveclen-ihigh)*sizeof(float)); 


} 


/* Higher codebook section based on filtering */ 
else { 
/* first non-interpolated vectors */ 


if (index-base_size<lMem-cbveclen+1) { 
float tempbuff2 [CB MEML+CB FILTERLEN+1]; 
float *pos; 
float *pp, *ppl; 


memset (tempbuff2, 0, 
CB HALFFILTERLEN*sizeof(float)); 

memcpy (&tempbuff2[CB HALFFILTERLEN], mem, 
lMem*sizeof(float)); 

memset (&tempbuff2[lMem+CB HALFFILTERLEN], 0, 
(CB HALFFILTERLEN+1) *sizeof (float)); 


k-index-base size+cbveclen; 
sFilt-lMem-k; 
memInd=sFilt+1-CB HALFFILTERLEN; 


/* do filtering */ 
pos-cbvec; 
memset (pos, 0, cbveclen*sizeof(float)); 
for (n=0; n«cbveclen; n++) ( 
pp=&tempbuff2 [memInd+n+CB HALFFILTERLEN]; 
ppl=&cbfiltersTbl[CB FILTERLEN-1]; 
for (j=0; j<CB FILTERLEN; j++) { 
(*pos) += (*pp++) * (*ppl--); 
) 
pos++; 


) 
/* interpolated vectors */ 


else ( 
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float tempbuff2[CB MEML+CB FILTERLEN+1]; 


float *pos; 
float *pp, *ppl; 
int i; 


memset (tempbuff2, 0, 
CB HALFFILTERLEN*sizeof(float)); 

memcpy (&tempbuff2[CB HALFFILTERLEN], mem, 
lMem*sizeof(float)); 

memset (&tempbuff2[1Mem+CB HALFFILTERLEN], 0, 
(CB HALFFILTERLEN+1) *sizeof (float)); 


k=2* (index-base size- 
(1Mem-cbveclen+1) )+cbveclen; 

sFilt-lMem-k; 

memInd=sFilt+1-CB HALFFILTERLEN; 


/* do filtering */ 

pos-&tmpbuf[sFilt]; 

memset(pos, 0, k*sizeof(float)); 

for (i20; i«k; i++) { 
pp=&tempbuff2 [memInd+i+CB HALFFILTERLEN]; 
ppl=&cbfiltersTbl[CB FILTERLEN-1]; 
for (j=0; j<CB FILTERLEN; j++) ( 

(*pos) += (*pp++) * (*ppl--); 

} 
pos++; 

} 


ihigh=k/2; 
ilow=ihigh-5; 


/* Copy first noninterpolated part */ 


memcpy (cbvec, tmpbuf+1Mem-k/2, 
ilow*sizeof(float)); 


/* interpolation */ 


alfal=(float)0.2; 


alfa=0.0; 
for (j=ilow; j<ihigh; j++) ( 
cbvec[jl-((float)1.0-alfa)* 


tmpbuf [1Mem-k/2+j]+alfa*tmpbuf [1Mem-k+j]; 
alfat-alfal; 
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/* Copy second noninterpolated part */ 


memcpy (cbvec+ihigh, tmpbuf+1Mem-k+ihigh, 
(cbveclen-ihigh) *sizeof (float)); 


} 


A.25. helpfun.h 


[KR KKK KKK k kk k kk k kok kk k kk K kk KKK kk K k K k KKK kc kk kc KKK KKK KKK X 


iLBC Speech Coder ANSI-C Source Code 


helpfun.h 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK k kc k X kc k Ck kk kCk ck kck ck k kc k k kc k Ck KKK KKK k kc k KKK K KKK kck ck kck ck kck ck ckckck ck ck ck | 


#ifndef __iLBC HELPFUN H 
#define __iLBC HELPFUN H 


void autocorr ( 
float *r, 
const float *x, 
int N, 
int order 


); 


void window ( 
float *z, 
const float *x, 
const float *y, 
int N 

); 


void levdurb ( 
float *a, 


float *k, 
float *r, 


int order 


); 


void interpolate ( 


Andersen, et al. 


(o) autocorrelation vector */ 
(i) data vector */ 

(i) length of data vector */ 
largest lag for calculated 
autocorrelations */ 


the windowed data */ 

the original data vector */ 
the window */ 

length of all vectors */ 


(o) lpc coefficient vector starting 
with 1.0 */ 

(o) reflection coefficients */ 

(i) autocorrelation vector */ 

(i) order of lpc filter */ 
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float *out, 
float *inl, 


float *in2, 


float coef, 
int length 
); 


void bwexpand( 
float *out, 


float *in, 


float coef, 
int length 
); 


void vq( 
float *Xq, 
int *index, 


Internet Low Bit Rate Codec 


/ * 
/* 


/* 


/* 
/* 


/* 
/* 


/* 
/* 


/* 
/* 


const float *CB,/* 


float *X, 
int n_cb, 
int dim 

); 

void SplitVQ( 
float *qx, 


int *index, 


float *X, 


/ * 
/* 
/* 


/* 
/* 


/* 


const float *CB,/* 


int nsplit, 


const int *dim, 


/* 
/* 


(i) 
the 
the 


the interpolated vector */ 
the first vector for the 


interpolation */ 


the second vector for the 


interpolation */ 


interpolation weights */ 
length of all vectors */ 


the bandwidth expanded lpc 


coefficients */ 
the lpc coefficients before bandwidth 
expansion */ 
the bandwidth expansion factor */ 

the length of lpc coefficient vectors */ 


the 
the 
the 
the 
the 
the 


the 


quantized vector */ 


quantization index */ 


December 2004 


vector guantization codebook */ 


vector to guantize */ 


number of vectors in the codebook */ 
dimension of all vectors */ 


quantized vector */ 


a vector of indexes for all vector 


codebooks in the split */ 
the vector to guantize */ 
the guantizer codebook */ 
number of vector splits */ 
dimension of X and ax */ 


const int *cbsize /* the number of vectors in the codebook */ 


); 


void sort sq( 
float *xq, 
int *index, 
float x, 


/* 
/* 
(i) 


const float *cb,/* 


int cb size 


); 


int LSF check( 
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/ * 


/ * 


the 


the 


the quantization index */ 


quantized value */ 


value to quantize */ 


the quantization codebook */ 


the size of the quantization codebook */ 


1 for stable lsf vectors and 0 for 
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nonstable ones */ 


float *lsf, /* (i) a table of lsf vectors */ 
int dim, /* (i) the dimension of each lsf vector */ 
int NoAn /* (i) the number of lsf vectors in the 
table */ 
); 
#endif 
A.26. helpfun.c 
[KR KKK KKK KKK KKK KKK kok K kk K kk K KK KK OK OK KK KKK kck ck kck ck KKK KK KK 
iLBC Speech Coder ANSI-C Source Code 
helpfun.c 
Copyright (C) The Internet Society (2004). 
All Rights Reserved. 
KKKKKKKKK KK k kc k k kc k ck kc k ck kc k ck OK kck ck k kc k ck kck ck OK OK ckckck KK | 
#include <math.h> 
#include "iLBC define.h" 
#include "constants.h" 
/* = * 
* calculation of auto correlation 
E l ZE a hs n P E a CERE LA u A — E */ 
void autocorr ( 
float *r, /* (0) autocorrelation vector */ 
const float *x, /* (i) data vector */ 
int N, /* (i) length of data vector */ 
int order /* largest lag for calculated 
autocorrelations */ 
) { 
int lag, n; 
float sum; 
for (lag = 0; lag <= order; lag++) { 
sum = 0; 
for (n = 0; n < N- lag; n++) { 
sum += x[n] * x[n+lag]; 
) 
r[lag] = sum; 
} 
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/* LII. I SS A ee ee m no ol ka n ee ee See ea * 
* window multiplication 
Km m he = Z SS d Z ————————————————————— ——— */ 


void window( 


float *z, /* (o) the windowed data */ 
const float *x, /* (i) the original data vector */ 
const float *y, /* (i) the window */ 
int N /* (i) length of all vectors */ 
) { 
int i; 
for (i = 0; i < N; i++) { 
z[i] = x[i] * ylil; 
) 
) 
/* BL LE E So L n l m ————— —'-————————— SL ==; * 
*  levinson-durbin solution for lpc coefficients 
RL LZS S EL EES LO S E Z o une m o aa a sla EE ne */ 
void levdurb( 
float *a, /* (o) lpc coefficient vector starting 
with 1.0 */ 
float *k, /* (o) reflection coefficients */ 
float *r, /* (i) autocorrelation vector */ 
int order /* (i) order of lpc filter */ 


float sum, alpha; 


int mi, Im hy: d; 
a[0] = 1.0; 
if (r[0] « EPS) { /* if r[0] <= 0, set LPC coeff. to zero */ 
for (i = 0; i < order; i++) { 
k[i] = 0; 
a[i+1] = 0; 
} 
} else ( 
a[l] = k[0] = -r[1]/r[0]; 


alpha = r[0] + r[1] * k[0]; 
for (m = 1; m < order; m++){ 


sum = r[m + 1]; 
for (i = 0; i < m; i++)( 
sum += a[itl] * r[m - il; 


Andersen, et al. Experimental [Page 141] 


RFC 3951 Internet Low Bit Rate Codec December 2004 


k[m] = -sum / alpha; 
alpha += k[m] * sum; 
mh = (m +1) >> 1; 


for (i = 0; i < mh; i++)( 
sum = a[i+1] + k[m] * afm - il; 
alm - i] += k[m] * ali+l]; 
a[i+1] = sum; 

} 

afm+1] = k[m]; 


/* u "AR "P I ee Ea REE L m ee ee * 
* interpolation between vectors 
p ICA d E "PREMO E ARRIERE ERR UEM RITE En */ 
void interpolate ( 
float *out, /* (o) the interpolated vector */ 
float *inl, /* (i) the first vector for the 
interpolation */ 
float *in2, /* (i) the second vector for the 
interpolation */ 
float coef, /* (i) interpolation weights */ 
int length /* (i) length of all vectors */ 
Na 
int i; 


float invcoef; 


invcoef = (float)1.0 - coef; 
for (i = 0; i < length; i++) { 
out [i] = coef * inl[i] + invcoef * in2[i]; 
} 
} 
/* TA SN EEE RS ee LEE EE EEE E ee A is * 
* lpc bandwidth expansion 
A A A A ss */ 
void bwexpand( 
float *out, /* (o) the bandwidth expanded lpc 
coefficients */ 
float *in, /* (i) the lpc coefficients before bandwidth 
expansion */ 
float coef, /* (i) the bandwidth expansion factor */ 
int length /* (i) the length of lpc coefficient vectors */ 
) { 
int i; 
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float chirp; 
chirp = coef; 


out [0] = in[0]; 

for (i = 1; i < length; i++) ( 
out [i] = chirp * in[il; 
chirp *= coef; 


/* | * 
* vector guantization 
DAA LS EE PARA ur T men sr E ER */ 
void vq( 
float *Xq, /* (o) the quantized vector */ 
int *index, /* (0) the quantization index */ 
const float *CB,/* (i) the vector quantization codebook */ 
float *X, /* (i) the vector to quantize */ 
int n cb, /* (i) the number of vectors in the codebook */ 
int dim /* (i) the dimension of all vectors */ 
) { 
int dede 
int pos, minindex; 


float dist, tmp, mindist; 


pos = 0; 
mindist = FLOAT MAX; 
minindex = 0; 


for (J = 0; j < n cb; j++) I 
dist = X[0] - CB[pos]; 
dist *= dist; 
for (i = 1; i < dim; i++) ( 
tmp = X[i] - CB[pos + il; 
dist += tmp*tmp; 
} 


if (dist < mindist) ( 
mindist = dist; 
minindex = j; 

} 

pos += dim; 


} 


for (i = 0; i < dim; i++) ( 

Xq[i] = CB[minindex*dim + il; 
} 
*index = minindex; 
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SME Se SEE EE N EE E E tn SA erte Se sen sa */ 
void SplitVQ( 
float *qX, /* (o) the quantized vector */ 
int *index, /* (0) a vector of indexes for all vector 
codebooks in the split */ 

float *X, /* (i) the vector to quantize */ 

const float *CB,/* (i) the quantizer codebook */ 

int nsplit, /* the number of vector splits */ 


const int *dim, /* the dimension of X and qX */ 
const int *cbsize /* the number of vectors in the codebook */ 


int cb pos, X pos, i; 

cb pos = 0; 

X pos- 0; 

for (i = 0; i < nsplit; i++) ( 


vq(qX + X pos, index + i, CB + cb pos, X + X pos, 
cbsize[i], dim[i]); 

X pos += dim[il; 

cb pos += dim[i] * cbsize[i]; 


/* m a m a a Bas en C RR c * 
* scalar quantization 
K x —————————————————— ————É——— "-—————————— */ 
void sort sq( 
float *xq, /* (o) the quantized value */ 
int *index, /* (o) the quantization index */ 
float x, /* (i) the value to quantize */ 
const float *cb,/* (i) the quantization codebook */ 
int cb size /* (i) the size of the quantization codebook */ 
) 1 
int i; 


if (x <= cb[0]) { 
*index = 0; 
*xq = cb[0]; 
} else ( 
i = 0; 
while ((x > cb[i]) 64 i < cb size - 1) { 
itt; 
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} 


if (x > ((cb[i] + cbli - 1])/2)) I 


*index = i; 
*xg = cblil; 
} else ( 
*index = i - 1; 


v = obli] 


/ * pL u E C e — ————ÀPÓ—— S E < S l ——— — — * 
* check for stability of lsf coefficients 
o ——Á———— — ———————— ——————————————— */ 
int LSF check( /* (o) 1 for stable lsf vectors and 0 for 
nonstable ones */ 
float *lsf, /* (i) a table of lsf vectors */ 
int dim, /* (i) the dimension of each lsf vector */ 
int NoAn /* (i) the number of lsf vectors in the 
table */ 


int k,n,m, Nit-2, change-0,pos; 

float tmp; 

static float eps-(float)0.039; /* 50 Hz */ 
static float eps2=(float)0.0195; 

static float maxlsf-(float)3.14; /* 4000 Hz */ 
static float minlsf=(float)0.01; /* 0 Hz */ 


/* LSF separation check*/ 


for (n=0; n«Nit; n++) ( /* Run through a couple of times */ 
for (m=0; m<NoAn; m++) { /* Number of analyses per frame */ 
for (k=0; k«(dim-1); k++) ( 
pos=m*dim+k; 


if ((1sf[pos+1]-1sf[pos])<eps) { 


if (lsf[pos+1]<lsf[pos]) { 
tmp=1sf [pos+1]; 
lsf[pos+l]= lsf[pos]+eps2; 
lsf[pos]= lsf[pos+1]-eps2; 

} else { 
lsf[pos]-=eps2; 
lsf[pos+l]+=eps2; 

) 


change-1; 
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} 

if (lsf[pos]<minlsf) { 
lsf[pos]=minlsf; 
change-1; 

} 

if (lsf[pos]>maxlsf) { 


lsf[pos]=maxlsf; 
change-1; 


} 


return change; 


A.27. hpInput.h 
[RR KKK KKK k kk k kk k kk kk k kk K kk K kk kk KKK K k X KA KA kc kCk ck KKK KKK KKKKKKKK KK 
iLBC Speech Coder ANSI-C Source Code 
hpInput.h 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK X ká X kc k Ck kk kCk ck kck ck k kc k Ck kc k ck kc k ck kc k ck KKK k kc k K kck ck kck RRA RRA RARA RARAS 


#ifndef  iLBC HPINPUT H 
#define _ iLBC HPINPUT H 


void hpInput( 
float *In, /* 
int len, /* 
float *Out, /* 
float *mem  /* 


i) vector to filter */ 

i) length of vector to filter */ 

o) the resulting filtered vector */ 
i/o) the filter state */ 

); 


fendif 
A.28. hpInput.c 


[KR KKK KKK k kk kk kk k kk k kk K kk K k K k Ck KKK X KA KKK KKKK KKK KKK kck ck kck ck kckck ck OK 


iLBC Speech Coder ANSI-C Source Code 
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hpInput.c 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK X ká k kc k Ck kk kCk ck kck ck kck ck k kc k Ck kCk ck kck ck k kc k kckck Ck KKK kck ck kck ck kck ck ckckck ck ck | 


#include "constants.h" 


/ * LI n A A A A S--- Pa Dret E * 
* Input high-pass filter 
p P ee —— ———Ó—————— —— P——— —— A ———— */ 


void hpInput( 
float *In, /* ( 
int len, [Fs + 
float *Out, /* ( 
float *mem /* ( 


i) vector to filter */ 

i) length of vector to filter */ 

o) the resulting filtered vector */ 
i/o) the filter state */ 


int i; 
float *pi, *po; 


/* all-zero section*/ 


pi = &In[0]; 

po = &Out [01]; 

for (i=0; i<len; i++) { 
*po = hpi zero coefsTbl[0] * (*pi); 
*po += hpi zero coefsTbl[1] * mem[0]; 
*po += hpi zero coefsTbl[2] * mem[1]; 


mem[1] = mem[0]; 
mem[0] = *pi; 
po++; 

pitt; 


} 
/* all-pole section*/ 


po = &Out[0]; 
for (i=0; i<len; i++) { 


*po -= hpi pole coefsTbl[1] * mem[2]; 
*po -= hpi pole coefsTbl[2] * mem[3]; 
mem[3] = mem[2]; 

mem[2] = *po; 

po++; 
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} 
A.29. hpOutput.h 
(kok kok k k kk k kk k kk kok K kk K kk K kk kk K kk K UK RR RARA AK AKA kck ck kck ck kck ck ck kck ck kkk 
iLBC Speech Coder ANSI-C Source Code 
hpoutput.h 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK X ká X kk kc k ck kCk ck kckck k kk k kc k k kk kck ck kck ck kck ck ck KKK kck ck 7 


#ifndef  iLBC HPOUTPUT H 
#define __iLBC HPOUTPUT H 


void hpOutput( 
float *In, /* (i) vector to filter */ 
int len,/* (i) length of vector to filter */ 
float *Out, /* (o) the resulting filtered vector */ 
float *mem /* (i/o) the filter state */ 
); 


fendif 
A.30. hpOutput.c 
[RR KKK KKK KKK k kk kk kk k kk K kk K k kk K k KKK KKK RAR K AKA KKK KKK KK KK KK KK 
iLBC Speech Coder ANSI-C Source Code 
hpoutput.c 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK X ká X kc k Ck kk kCk ck kck ck k kk k kc k k k kk KKK K kc k kck ck kckck ck kck ck kck ck kck ck RARA | 


#include "constants.h" 


/ * rre * 
* Output high-pass filter 
K= c ———————À———————————————————————————— */ 


void hpOutput( 
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float *In, /* (i) vector to filter */ 


int len,/* (i) length of vector to filter */ 
float *Out, /* (o) the resulting filtered vector */ 


float *mem /* (i/o) the filter state */ 
) t 

int i; 

float *pi, *po; 


/* all-zero section*/ 


pi = &In[0]; 

po = &Out [0]; 

for (i20; i<len; i++) { 
*po = hpo zero coefsTbl[0] * (*pi); 
*po += hpo zero coefsTbl[1] * mem[0]; 
*po += hpo zero coefsTbl[2] * mem[1]; 


mem[1] = mem[0]; 
mem[0] = *pi; 
pott; 

pitt; 


} 
/* all-pole section*/ 


po = &Out[0]; 
for (i=0; i<len; i++) { 


*po -= hpo pole coefsTbl[1] * mem[2]; 
*po -= hpo pole coefsTbl[2] * mem[3]; 
mem[3] = mem[2]; 

mem[2] = *po; 

po++; 


} 


A.31.  iCBConstruct.h 


December 2004 


(kk k kok k k kk k kk K kok kok K kk K kk K kk kk K k K KX kk KA k KKK KKK kck ck ck ck ck ck kck ck K X 


iLBC Speech Coder ANSI-C Source Code 


iCBConstruct.h 


Copyright (C) The Internet Society (2004). 


All Rights Reserved. 
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KKKKKKKKK kck ck X kk X kc k ck kCk ck X kk k kc k k kc k ck k kk kck ck kck ck kck ck ck KKK kck ck KKK KKK RARA ke kk | 


#ifndef  iLBC ICBCONSTRUCT H 
#define — iLBC ICBCONSTRUCT H 


void index conv enc( 
int *index /* (i/o) Codebook indexes */ 


); 


void index conv. dec( 
int *index /* (i/o) Codebook indexes */ 


); 


void iCBConstruct( 

float *decvector, /* (0) Decoded vector */ 

int *index, /* (i) Codebook indices */ 

int *gain index,/* (i) Gain quantization indices */ 
( 
( 
( 
( 


float *mem, /* (i) Buffer for codevector construction */ 
int lMem, /* (i) Length of buffer */ 
int veclen, /* (i) Length of vector */ 
int nStages /* (i) Number of codebook stages */ 
); 
endi T 


A.32. iCBConstruct.c 
(kok k kok k KKK k kk K kk kok K kk K kk K k K kk KKK K KX KA X K AA K KA KKK K X 
iLBC Speech Coder ANSI-C Source Code 
iCBConstruct.c 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK X ká X kc k Ck kc k ck kc k ck kck ck k kk K kk kk kck ck kck ck kck ck k KKK kck ck 7 
#include <math.h> 
#include "iLBC define.h" 


include "gainquant.h" 
include "getCBvec.h" 


/* a L a LI SS ae CA a A RR * 
* Convert the codebook indexes to make the search easier 
Ae IURAVIT "ROC PM TT T" cR */ 
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void index conv enc( 

int *index /* (i/o) Codebook indexes */ 
) { 

int k; 


for (k-1; k«CB NSTAGES; k++) { 


if ((index[k]>=108) && (index[k]<172)) { 
index [k]-=64; 

} else if (index[k]>=236) { 
index [k]-=128; 

} else { 
/* ERROR */ 

} 


} 


void index_conv_dec ( 

int *index /* (i/o) Codebook indexes */ 
) { 

int k; 


for (k-1; k«CB NSTAGES; k++) { 


if ((index[k]>=44)&&(index[k]<108)) { 
index[k]+=64; 

} else if ((index[k]>=108)&&(index[k]<128)) ( 
index[k]+=128; 

} else ( 
/* ERROR */ 


/* = * 
* Construct decoded vector from codebook and gains. 
WE z so cl W R E eS e H EE a a R LIII Ss a ce R S clc */ 


void iCBConstruct( 


float *decvector, /* (0) Decoded vector */ 
int *index, /* (i) Codebook indices */ 
int *gain index,/* (i) Gain quantization indices */ 
float *mem, /* (i) Buffer for codevector construction */ 
int lMem, /* (i) Length of buffer */ 
int veclen, /* (i) Length of vector */ 
int nStages /* (i) Number of codebook stages */ 
) 1 
int j,k; 
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float gain[CB NSTAGES]; 
float cbvec[SUBL]; 


/* gain de-quantization */ 


gain[0] = gaindequant (gain index[0], 1.0, 32); 
if (nStages > 1) ( 
gain[1] = gaindequant (gain index[1], 
(float)fabs(gain[0]), 16); 
} 
if (nStages > 2) { 
gain[2] = gaindequant (gain index[2], 
(float) fabs (gain[1]), 8); 
) 


/* codebook vector construction and construction of 
total vector */ 


getCBvec (cbvec, mem, index[0], IMem, veclen); 
for (j=0; j<veclen; j++) { 
decvector[j] = gain[0]*cbvec[jl; 
} 
if (nStages > 1) ( 
for (k=1; k<nStages; k++) ( 
getCBvec (cbvec, mem, index[k], lMem, veclen); 
for (j=0;j<veclen;j++) { 
decvector[j] += gain[k]*cbvec[jl; 


iCBSearch.h 


2004 


(kok k kok k k kk k kk K kk kok K kk K kk KR OK kk KKK K k X KX KA K AKA KKK K X 


iLBC Speech Coder ANSI-C Source Code 
iCBSearch.h 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK X ká X kc k Ck kc k ck k kk kck ck k kc k k kc k ck kCk ck kck ck kck ck kck ck ck KKK kck ck kck ck kck ck ckckck sk sk ke ke kx | 


#ifndef  iLBC ICBSEARCH H 
#define — iLBC ICBSEARCH H 
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void iCBSearch( 
iLBC Enc Inst t *iLBCenc inst, 
/* (i) the encoder state structure */ 
int *index, /* (o) Codebook indices */ 
int *gain index,/* (o) Gain quantization indices */ 
float *intarget,/* (i) Target vector for encoding */ 


float *mem, /* (i) Buffer for codebook construction */ 
int lMem, /* (i) Length of buffer */ 

int lTarget, /* (i) Length of vector */ 

int nStages, /* (i) Number of codebook stages */ 


float *weightDenum, /* (i) weighting filter coefficients */ 
float *weightState, /* (i) weighting filter state */ 
int block /* (i) the sub-block number */ 

); 


#endif 
A.34.  iCBSearch.c 


[RR KKK KKK KKK KKK KKK kk K kk K kk K k K K KKK KKK KK 


iLBC Speech Coder ANSI-C Source Code 
iCBSearch.c 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK kck ck kck ck Ck kk kCk ck kck ck k kc k k kk kCk ck kck ck k KA kck ck ck KKK kck RRA RR KARA ARA RARAS 


#include «math.h» 
#include <string.h> 


#include "iLBC_define.h" 
#include "gainquant.h" 
#include "createCB.h" 
#include "filter.h" 
#include "constants.h" 


void iCBSearch ( 
iLBC_Enc_Inst_t *iLBCenc_inst, 
/* (i) the encoder state structure */ 
int *index, /* (0) Codebook indices */ 
int *gain_index,/* (o) Gain quantization indices */ 
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float *intarget,/* (i) Target vector for encoding */ 


float *mem, /* (i) Buffer for codebook construction */ 
int lMem, /* (i) Length of buffer */ 

int lTarget, /* (i) Length of vector */ 

int nStages, /* (i) Number of codebook stages */ 


float *weightDenum, /* (i) weighting filter coefficients */ 
float *weightState, /* (i) weighting filter state */ 
int block /* (i) the sub-block number */ 


int i, j, icount, stage, best index, range, counter; 
float max measure, gain, measure, crossDot, ftmp; 
float gains[CB NSTAGES]; 

float target[SUBL]; 

int base index, sInd, eInd, base size; 

int sIndAug=0, eIndAug=0; 

float buf[CB MEML+SUBL+2*LPC FILTERORDER]; 

float invenergy[CB EXPAND*128], energy[CB EXPAND*128]; 
float *pp, *ppi-0, *ppo-0, *ppe-0; 

float cbvectors[CB MEML]; 

float tene, cene, cvec[SUBL]; 

float aug vec[SUBL]; 


memset (cvec, 0, SUBL*sizeof (float)); 
/* Determine size of codebook sections */ 
base size-lMem-lTargettl; 
if (lTarget--SUBL) ( 
base size=l1Mem-lTarget+l+lTarget/2; 


} 


/* setup buffer for weighting */ 

memcpy (buf,weightState,sizeof (float) *LPC FILTERORDER); 

memcpy (buf+LPC FILTERORDER, mem, 1Mem*sizeof (float)); 

memcpy (buf+LPC FILTERORDER+1Mem, intarget, lTarget*sizeof(float)); 
/* weighting */ 


AllPoleFilter(buf+LPC FILTERORDER, weightDenum, 
lMem*lTarget, LPC FILTERORDER); 


/* Construct the codebook and target needed */ 
memcpy (target, buf+LPC FILTERORDER+1Mem, lTarget*sizeof(float)); 


tene=0.0; 
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for (i=0; i<lTarget; i++) ( 
tene+=target[i]*target [i]; 
) 


/* Prepare search over one more codebook section. This section 
is created by filtering the original buffer with a filter. */ 


filteredCBvecs (cbvectors, buf+LPC FILTERORDER, lMem); 
/* The Main Loop over stages */ 
for (stage=0; stage<nStages; stage++) { 

range = search_rangeTbl [block] [stage]; 

/* initialize search measure */ 


max measure = (float)-10000000.0; 
gain = (float)0.0; 
best index = 0; 


/* Compute cross dot product between the target 
and the CB memory */ 


crossDot=0.0; 
pp=buf+LPC FILTERORDER+1Mem-lTarget; 
for (3=0; j<lTarget; j++) { 

crossDot += target[jl*(*pp++); 


/* Calculate energy in the first block of 
'lTarget' samples. */ 

ppe - energy; 

pei = buf+LPC_FILTERORDER+1Mem-1Target-1; 

ppo = buf+LPC_FILTERORDER+1Mem-1; 


*ppe=0.0; 

pp=buf+LPC FILTERORDER+1Mem-lTarget; 

for (j=0; j<lTarget; j++) { 
*ppet=(*pp) * (*pp++) ; 

) 


if (*ppe>0.0) { 
invenergy[0] 

} else ( 
invenergy[0] = (float) 0.0; 


(float) 1.0 / (*ppe + EPS); 
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} 
ppe++; 


measure= (float)-10000000.0; 


if (crossDot > 0.0) ( 
measure = crossDot*crossDot*invenergy[0]; 
} 
} 


else { 
measure = crossDot*crossDot*invenergy[0]; 


} 


/* check if measure is better */ 
ftmp = crossDot*invenergy[0]; 


if ((measure»max measure) && (fabs(ftmp)«CB MAXGAIN)) { 
best index = 0; 
max measure - measure; 
gain = ftmp; 

} 


/* loop over the main first codebook section, 
full search */ 


for (icount-1; icount<range; icount++) { 
/* calculate measure */ 


crossDot=0.0; 
pp = buf+LPC_FILTERORDER+1Mem-1Target-icount; 


for (j=0; j<lTarget; j++) ( 
crossDot += target [3]* (*pp++); 
} 


if (stage==0) ( 
*ppe++ = energy[icount-1] + (*ppi)*(*ppi) - 
(*ppo) * (*ppo) ; 
ppo--; 
ppi--; 


if (energy[icount]>0.0) { 
invenergy[icount] = 
(float)1.0/ (energy [icount]+EPS) ; 
} else { 
invenergy[icount] = (float) 0.0; 
} 
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measure= (float)-10000000.0; 


if (crossDot > 0.0) ( 


December 2004 


measure = crossDot*crossDot*invenergy[icount]; 


} 
} 


else ( 


measure = crossDot*crossDot*invenergy[icount]; 


} 


/* check if measure is better */ 
ftmp = crossDot*invenergy[icount]; 


if ((measure»max measure) && (fabs(ftmp)«CB MAXGAIN)) { 


best index = icount; 
max measure = measure; 
gain = ftmp; 


} 


/* Loop over augmented part in the first codebook 


* section, full search. 
* The vectors are interpolated. 


El 
if (lTarget--SUBL) ( 


/* Search for best possible cb vector 
compute the CB-vectors' energy. */ 


and 


searchAugmentedCB(20, 39, stage, base size-lTarget/2, 


target, buf+LPC FILTERORDER+1Mem, 
&max measure, &best index, &gain, 
invenergy); 


} 


energy, 


/* set search range for following codebook sections */ 


base index=best index; 


/* unrestricted search */ 


if (CB RESRANGE == -1) ( 
sInd=0; 
eInd=range-1; 
sIndAug=20; 
eIndAug=39; 
} 
etal. Experimental 
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/* restricted search around best index from first 
codebook section */ 


else ( 
/* Initialize search indices */ 
sIndAug=0; 
eIndAug=0; 
sInd=base index-CB RESRANGE/2; 
eInd=sInd+CB RESRANGE; 


if (lTarget--SUBL) ( 
if (sInd<0) ( 


sIndAug = 40 + sInd; 


elndAug = 39; 
sInd=0; 
} else if ( base index < (base size-20) ) { 


if (elnd > range) { 
sind -= (eInd-range); 
eInd = range; 

} 


} else { /* base index >= (base size-20) */ 


if (sind < (base size-20)) { 
sIndAug = 20; 
sInd 0; 
eInd = 0; 
elndAug = 19 + CB RESRANGE; 


if(elndAug > 39) { 
elnd = eIndAug-39; 
elndAug = 39; 

} 


} else ( 
sIndAug = 20 + sInd - (base size-20); 
eIndAug = 39; 
sInd = 0; 
elnd = CB RESRANGE - (eIndAug-sIndAug+1); 


} 
} else ( /* lTarget = 22 or 23 */ 


if (sind < 0) { 
elnd -= sind; 


Andersen, et al. Experimental [Page 158] 


RFC 3951 Internet Low Bit Rate Codec December 2004 


if(elnd > range) { 
sind -= (eInd - range); 
eInd = range; 


} 


/* search of higher codebook section */ 


/* index search range */ 
counter = sInd; 

sInd += base size; 

eInd += base size; 


if (stage==0) ( 
ppe = energytbase size; 
*ppe=0.0; 


pp=cbvectors+lMem-lTarget; 
for (j=0; j<lTarget; j++) { 
*ppe+= (*pp) * (*pp++) ; 


ppi = cbvectors + lMem - 1 - lTarget; 


ppo = cbvectors + lMem - 1; 
for (j=0; j«(range-1); j++) ( 
*(ppe+1) = *ppe + (*ppi)*(*ppi) - (*ppo)*(*ppo); 
ppo--; 
ppi--; 
ppe++; 


} 

/* loop over search range */ 

for (icount=sInd; icount«eInd; icount++) { 
/* calculate measure */ 


crossDot=0.0; 
pp=cbvectors + lMem - (counter++) - lTarget; 


for (j=0;j<lTarget; j++) { 
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crossDot += target [j]*(*pp++); 
} 


if (energy[icount]>0.0) { 
invenergy[icount] =(float)1.0/ (energy [icount]+EPS) ; 
} else { 
invenergy[icount] =(float)0.0; 


} 
if (stage==0) ( 
measure= (float)-10000000.0; 


if (crossDot > 0.0) ( 
measure = crossDot*crossDot* 
invenergy[icount]; 
} 
} 
else { 
measure = crossDot*crossDot*invenergy[icount]; 


} 


/* check if measure is better */ 
ftmp = crossDot*invenergy[icount]; 


if ((measure»max measure) && (fabs(ftmp)«CB MAXGAIN)) { 
best index = icount; 
max measure = measure; 
gain = ftmp; 
} 
/* Search the augmented CB inside the limited range. */ 
if ((1Target==SUBL) ss (sIndAug!=0)) { 
searchAugmentedCB(sIndAug, eIndAug, stage, 
2*base size-20, target, cbvectors+lMem, 
&max measure, &best index, &gain, energy, 


invenergy); 


} 

/* record best index */ 
index [stage] = best index; 
/* gain guantization */ 


if (stage==0) { 
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if (gain<0.0)( 
gain = 0.0; 
} 


if (gain>CB MAXGAIN) { 
gain = (float)CB MAXGAIN; 
} 
gain = gainguant (gain, 1.0, 32, &gain index[stage]); 
} 
else ( 
if (stage==1) ( 
gain = gainquant (gain, (float) fabs(gains[stage-1]), 
16, &gain index[stagel); 
) else ( 
gain = gainquant (gain, (float) fabs(gains[stage-1]), 
8, &gain index[stagel); 


} 


/* Extract the best (according to measure) 
codebook vector */ 


if (lTarget== (STATE LEN-iLBCenc inst->state short len)) { 


if (index [stagel<base size) { 
pp=buf+LPC FILTERORDER+1Mem-lTarget-index[stagel; 
} else { 
pp=cbvectors+lMem-lTarget- 
index [stagel]+base size; 
) 


} else ( 


if (index[stage]«base size) { 
if (index[stage]«(base size-20)) ( 
pp=buf+LPC FILTERORDER+1Mem- 
lTarget-index[stage]; 
} else ( 
createAugmentedVec (index [stage]-base size+40, 
buf+LPC FILTERORDER+1Mem, aug vec); 
pp=aug vec; 
) 
) else ( 
int filterno, position; 


filterno=index[stage]/base size; 
position-index[stage]-filterno*base size; 
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if (position< (base size-20)) { 
pp=cbvectors+filterno*lMem-lTarget- 
index [stage]+filterno*base size; 
) else ( 
createAugmentedVec ( 
index[stagel-(filterno+1)*base_size+40, 
cbvectors+filterno*lMem,aug vec); 
pp=aug vec; 


} 


/* Subtract the best codebook vector, according 
to measure, from the target vector */ 


for (j=0;j<lTarget; j++) { 
cvec[j] += gain*(*pp); 
target[j] -= gain*(*pp++); 
} 


/* record quantized gain */ 
gains[stage]-gain; 
)/* end of Main Loop. for (stage-0;... */ 


/* Gain adjustment for energy matching */ 

cene-0.0; 

for (i20; i<lTarget; i++) ( 
cene+=cvec[i]*cvec[il; 

) 


j=gain index[0]; 


for (i=gain index[0]; i<32; i++) ( 
ftmp=cene*gain sq5Tbl[i]*gain sq5Tbl[il; 


if ((ftmp<(tene*gains[0]*gains[0])) && 
(gain sq5Tbl[jl<(2.0*gains[0]1))) { 
j=i; 
) 
) 


gain index[0]=3; 
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A.35.  LPCdecode.h 
(kk k kok k k kk k kk k kk kk K kk K kk K kk kk K k KKK KKK RAR K KA KKK KKK RARA RRA 
iLBC Speech Coder ANSI-C Source Code 
LPC decode.h 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK X ká X kk kk kCk ck kck ck kck ck Ck kc k ck kc k ck KKK kck ck k kc k ck kck ck kck ck KKK kck ck ckck ARA ke ke ke / 


#ifndef __iLBC LPC DECODE H 
#define __iLBC LPC DECODE H 


void LSFinterpolate2a dec( 


float *a, /* (o) lpc coefficients for a sub-frame */ 
float *lsfi, /* (i) first lsf coefficient vector */ 

float *1sf2, /* (i) second lsf coefficient vector */ 

float coef, /* (i) interpolation weight */ 

int length /* (i) length of lsf vectors */ 


); 


void SimplelsfDEQ( 


float *lsfdeg, /* (o) dequantized 1sf coefficients */ 
int *index, /* (i) quantization index */ 
int lpc n /* (i) number of LPCs */ 


); 


void DecoderInterpolateLSF( 
float *syntdenum, /* (0) synthesis filter coefficients */ 
float *weightdenum, /* (o) weighting denumerator 
coefficients */ 
float *lsfdeg, /* (i) dequantized lsf coefficients */ 
int length, /* (i) length of lsf coefficient vector */ 
iLBC Dec Inst t *iLBCdec inst 
/* (i) the decoder state structure */ 
); 


#endif 
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A.36.  LPCdecode.c 


(kok k kok k k kk k kk K kk kok K kk K kk K kk kk K k K k KKK RAR KKK KKK KKK ck ck ck ck k kkk kk 


iLBC Speech Coder ANSI-C Source Code 
LPC decode.c 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKK KKK X RAR RAR RARA ck kc kk Ck kc k ck k k ck kck ck KKK k kc k K kck ck kck ck kck ck KKK ckck ARA ke ke / 


#include <math.h> 
finclude <string.h> 


#include "helpfun.h" 
#include "lsf.h" 
#include "iLBC define.h" 
#include "constants.h" 


/* EE L Tn ree * 
* interpolation of lsf coefficients for the decoder 
R a E < a a o ae à */ 
void LSFinterpolate2a dec L 
float *a, /* (o) lpc coefficients for a sub-frame */ 
float *lsfl, /* (i) first lsf coefficient vector */ 
float *1sf2, /* (i) second lsf coefficient vector */ 
float coef, /* (i) interpolation weight */ 
int length /* (i) length of lsf vectors */ 


float l1sftmp[LPC_FILTERORDER]; 


interpolate(lsftmp, lsfl, lsf2, coef, length); 
lsf2a(a, lsftmp); 


/* ae oe Se ee Se rcx Se a SS Se a * 
* obtain dequantized lsf coefficients from quantization index 
Ro => S m né ně r en m ss m o n S */ 
void SimplelsfDEQ( 
float *lsfdeg, /* (o) dequantized lsf coefficients */ 
int *index, /* (i) quantization index */ 
int lpc n /* (i) number of LPCs */ 


int i, j, pos, cb pos; 
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/* decode first LSF */ 


pos = 0; 
cb pos = 
for (i = 0; i < LSF NSPLIT; i++) ( 
for (j = 0; j < dim 1sfCbTbl[i]; j++) { 
lsfdeq[pos + j] = lsfCbTbl [cb pos + 
(long) (index [i])*dim lsfCbTbl[i] + jl; 
} 
pos += dim lsfCbTbl[il; 
cb pos += size lsfCbTbl[i]*dim lsfCbTbl[i]; 
} 


if (lpc_n>1) { 


/* decode last LSF */ 


pos = 0; 
cb pos = 0; 
for (i = 0; i < LSF NSPLIT; i++) { 


for (j = 0; j < dim 1sfCbTbl[i]; j++) { 
lsfdeq[LPC FILTERORDER + pos + j] = 

lsfCbTbl[cb pos + 
(long) (index [LSF NSPLIT + i])* 
dim lsfCbTbl[i] + jl; 

} 

pos += dim lsfCbTbl[il; 

cb pos += size lsfCbTbl[i]*dim lsfCbTbl[i]; 


void DecoderInterpolateLSF( 
float *syntdenum, /* (o) synthesis filter coefficients */ 
float *weightdenum, /* (o) weighting denumerator 
coefficients */ 

float *lsfdeg, /* (i) dequantized lsf coefficients */ 
int length, /* (i) length of lsf coefficient vector */ 
iLBC Dec Inst t *iLBCdec inst 

/* (i) the decoder state structure */ 


int i, pos, lp length; 
float lp[LPC FILTERORDER + 1], *lsfdeq2; 
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lsfdeq2 = lsfdeq + length; 
lp length = length + 1; 


if (iLBCdec inst->mode==30) ( 
/* sub-frame 1: Interpolation between old and first */ 


LSFinterpolate2a dec(lp, iLBCdec inst->lsfdeqold, lsfdeq, 
lsf weightTbl 30ms[0], length); 

memcpy (syntdenum, lp, lp length*sizeof(float)); 

bwexpand (weightdenum, lp, LPC CHIRP WEIGHTDENUM, 
lp length); 


/* sub-frames 2 to 6: interpolation between first 
and last LSF */ 


pos = lp length; 
for (i = 1; i < 6; itt) { 
LSFinterpolate2a dec(lp, lsfdeq, lsfdeq2, 
lsf weightTbl 30ms[i], length); 
memcpy (syntdenum + pos,lp,lp length*sizeof(float)); 
bwexpand(weightdenum + pos, lp, 
LPC CHIRP WEIGHTDENUM, lp length); 
pos += lp length; 


= 0; 

(i = 0; i < iLBCdec inst->nsub; i++) { 

LSFinterpolate2a dec(lp, iLBCdec_inst->1sfdegold, 
lsfdeq, lsf weightTbl 20ms[i], length); 

memcpy (syntdenum+pos, lp, lp length*sizeof(float)); 

bwexpand (weightdenum+pos, lp, LPC CHIRP WEIGHTDENUM, 
lp length); 

pos += lp length; 


) 
/* update memory */ 


if (iLBCdec inst->mode==30) 
memcpy (iLBCdec inst->lsfdeqold, lsfdeq2, 
length*sizeof(float)); 
else 
memcpy (iLBCdec inst-»1sfdeqold, lsfdeg, 
length*sizeof(float)); 
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A.37.  LPCencode.h 


(kok k kok k k kk k kk K kk kk K kk K kk K kk kk K kk K k KKK RAR KKK KKK KKK kck ck ck kck ck K X 


iLBC Speech Coder ANSI-C Source Code 
LPCencode.h 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK KKK X kc k Ck kk KKK KKK k kc k k kc k ck KKK KKK KKK k kc k K KKK KKK J 


#ifndef __iLBC LPCENCOD H 
#define — iLBC LPCENCOD H 


void LPCencode ( 

float *syntdenum, /* (i/o) synthesis filter coefficients 
before/after encoding */ 

float *weightdenum, /* (i/o) weighting denumerator coefficients 
before/after encoding */ 

int *lsf index, /* (o) lsf quantization index */ 

float *data, /* (i) lsf coefficients to quantize */ 

iLBC Enc Inst t *iLBCenc inst 

/* (i/o) the encoder state structure */ 


); 
#endif 
A.38. LPCencode.c 
[RR KKK KKK KKK k kk KKK kok k kk K kk KK KK KK KK KK KK kc k ck kck ck kck ck kck ck ck kck KK KK 
iLBC Speech Coder ANSI-C Source Code 
LPCencode.c 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK X ká k kc k Ck kc k ck kCk ck k kc k k kc k Ck kc k Ck kc k ck K k ck K kc k k kc k k kc k ck kck ck kck ck kck ck RARA ke kk / 


finclude «string.h» 


#include "iLBC define.h" 
#include "helpfun.h" 
#include "lsf.h" 
#include "constants.h" 
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lpc analysis (subrutine to LPCencode) 


void SimpleAnalysis ( 
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float *lsf, /* (o) lsf coefficients */ 
float *data, /* (i) new data vector */ 
iLBC Enc Inst t *iLBCenc inst 
/* (i/o) the encoder state structure */ 


int k, is; 

float temp [BLOCKL MAX], lp[LPC FILTERORDER + 1]; 
float 1lp2 [LPC FILTERORDER + 1]; 

float r[LPC FILTERORDER + 1]; 


is=LPC LOOKBACK+BLOCKL MAX-iLBCenc inst->blockl; 
memcpy (iLBCenc inst->lpc buffer+is,data, 
iLBCenc inst->blockl*sizeof (float) ); 


/* No lookahead, last window is asymmetric */ 


for (k = 0; k < iLBCenc inst->lpc n; k++) { 


is LPC LOOKBACK; 
if (k < (iLBCenc_inst->lpc n - 1)) { 
window (temp, lpc winTbl, 
iLBCenc_inst->lpc buffer, BLOCKL MAX); 
} else ( 
window (temp, lpc asymwinTbl, 
iLBCenc_inst->lpc buffer + is, BLOCKL MAX); 
} 


autocorr(r, temp, BLOCKL MAX, LPC FILTERORDER); 
window(r, r, lpc lagwinTbl, LPC FILTERORDER + 1); 


levdurb(lp, temp, r, LPC FILTERORDER); 


bwexpand(lp2, lp, LPC CHIRP SYNTDENUM, LPC FILTERORDER+1); 


a2lsf(1sf + k*LPC FILTERORDER, 1p2); 

} 

is=LPC LOOKBACK+BLOCKL MAX-iLBCenc inst->blockl; 

memmove (iLBCenc_inst->lpc buffer, 
iLBCenc inst-»lpc buffer+LPC LOOKBACK+BLOCKL MAX-is, 
is*sizeof (float)); 
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lsf interpolator and conversion from lsf to a coefficients 
*  (subrutine to SimpleInterpolateLSF) 


void LSFinterpolate2a enc( 
float *a, /* (o) lpc coefficients */ 
float *lsfl,/* (i) first set of lsf coefficients */ 
float *1sf2,/* (i) second set of lsf coefficients */ 


float coef, /* (i) weighting coefficient to use between 
lsfl and 1sf2 */ 
long length /* (i) length of coefficient vectors */ 


float l1sftmp[LPC_FILTERORDER]; 


interpolate(lsftmp, lsfl, lsf2, coef, length); 
lsf2a(a, lsftmp); 


/ * ———— ——————b————— — ——————PP————Ó— —— | — — A * 
* Lat interpolator (subrutine to LPCencode) 
AW LIII A A ee eS ee A SS a Se SSS a ee a Se Se */ 


void SimpleInterpolateLSF ( 
float *syntdenum, /* (o) the synthesis filter denominator 
resulting from the quantized 
interpolated lsf */ 
float *weightdenum, /* (o) the weighting filter denominator 
resulting from the unquantized 
interpolated lsf */ 


float *lsf, /* (i) the unquantized lsf coefficients */ 
float *lsfdeg, /* (i) the dequantized lsf coefficients */ 
float *lsfold, /* (i) the unguantized lsf coefficients of 


the previous signal frame */ 
float *lsfdeqold, /* (i) the dequantized lsf coefficients of 
the previous signal frame */ 
int length, /* (i) should equate LPC FILTERORDER */ 
iLBC Enc Inst t *iLBCenc inst 
/* (i/o) the encoder state structure */ 


int i, pos, lp length; 
float 1Ip[LPC_FILTERORDER + 1], *lsf2, *lsfdeq2; 


lsf2 = lsf + length; 
lsfdeq2 = lsfdeq + length; 
lp length = length + 1; 


if (iLBCenc inst->mode==30) ( 
/* sub-frame 1: Interpolation between old and first 
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set of lsf coefficients */ 
LSFinterpolate2a enc(lp, lsfdeqold, lsfdeg, 
lsf weightTbl 30ms[0], length); 
memcpy (syntdenum, lp, lp length*sizeof(float)); 
LSFinterpolate2a enc(lp, lsfold, lsf, 
lsf weightTbl 30ms[0], length); 
bwexpand(weightdenum, lp, LPC CHIRP WEIGHTDENUM, lp length); 
/* sub-frame 2 to 6: Interpolation between first 
and second set of lsf coefficients */ 
pos = lp length; 
for (i = 1; i < iLBCenc inst->nsub; i++) ( 
LSFinterpolate2a enc(lp, lsfdeq, lsfdeq2, 
lsf weightTbl 30ms[i], length); 
memcpy (syntdenum + pos,lp,lp length*sizeof(float)); 
LSFinterpolate2a enc(lp, lsf, lsf2, 
lsf weightTbl 30ms[i], length); 
bwexpand(weightdenum + pos, lp, 
LPC CHIRP WEIGHTDENUM, lp length); 
pos += lp length; 
} 
} 
else ( 
pos 0; 
for = 0; i < iLBCenc inst->nsub; i++) { 


} 


(i 
LSFinterpolate2a enc(lp, lsfdeqold, lsfdeg, 
lsf weightTbl 20ms[i], length); 
memcpy (syntdenum+pos, lp, lp length*sizeof(float)); 
LSFinterpolate2a enc(lp, lsfold, lsf, 
lsf weightTbl 20ms[i], length); 
bwexpand (weightdenum+pos, lp, 
LPC CHIRP WEIGHTDENUM, lp length); 
pos += lp length; 


/* update memory */ 


if (iLBCenc inst->mode==30) ( 
memcpy (lsfold, 1sf2, length*sizeof (float)); 
memcpy (lsfdeqold, lsfdeg2, length*sizeof (float)); 
) 
else ( 
memcpy (1sfold, lsf, length*sizeof (float)); 
memcpy (lsfdeqold, lsfdeg, length*sizeof (float)); 
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lsf quantizer (subrutine to LPCencode) 


void Simplelsfo( 


float *lsfdeq, /* (o) dequantized 1sf coefficients 
(dimension FILTERORDER) */ 

int *index, /* (o) guantization index */ 

float *lsf, /* (i) the lsf coefficient vector to be 
quantized (dimension FILTERORDER ) */ 

int lpc n /* (i) number of lsf sets to quantize */ 


/* Quantize first LSF with memoryless split VQ */ 
SplitVQ(l1sfdeq, index, lsf, lsfCbTbl, LSF NSPLIT, 
dim lsfCbTbl, size 1sfCbTbl); 


if (lpc_n==2) { 
/* Quantize second LSF with memoryless split VQ */ 
SplitvO(lsfdeq + LPC FILTERORDER, index + LSF NSPLIT, 
lsf + LPC FILTERORDER, lsfCbTbl, LSF NSPLIT, 
dim 1sfCbTbl, size 1sfCbTbl); 


void LPCencode ( 


float *syntdenum, /* (i/o) synthesis filter coefficients 
before/after encoding */ 

float *weightdenum, /* (i/o) weighting denumerator 
coefficients before/after 
encoding */ 

int *lsf index, /* (o) lsf quantization index */ 

float *data, /* (i) lsf coefficients to quantize */ 

iLBC Enc Inst t *iLBCenc inst 

/* (i/o) the encoder state structure */ 


float lsf[LPC FILTERORDER * LPC N MAX]; 
float lsfdeq[LPC FILTERORDER * LPC N MAX]; 
int change=0; 


SimpleAnalysis(lsf, data, iLBCenc inst); 
Simplelsfo(lsfdeg, lsf index, lsf, iLBCenc inst->lpc n); 
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change=LSF check (lsfdeq, LPC FILTERORDER, iLBCenc inst->lpc n); 
SimpleInterpolateLSF (syntdenum, weightdenum, 
lsf, lsfdeq, iLBCenc_inst->lsfold, 
iLBCenc_inst->lsfdeqold, LPC FILTERORDER, iLBCenc inst); 
) 


A.39. 1sf.h 
[KKK KKK KK k kk k kk k kk KKK KKK KKK KKK K KKK KKK KKK KKK K KKK KKK KKK KKK ck ck ck ck kck KK KK 
iLBC Speech Coder ANSI-C Source Code 
lsf.h 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKK KKK KKK X kc k Ck kc k ck KKK KKK k kc k k kc k K KKK KKK KKK KKK K KKK KKK KKK RRA RARA RARAS 


#ifndef  iLBC LSF H 
#define  iLBC LSF H 


void a21sf( 
float *freq,/* (o) lsf coefficients */ 
float *a /* (i) lpc coefficients */ 
); 
void 1lsf2a( 
float *a coef, /* (o) lpc coefficients */ 
float *freq /* (i) lsf coefficients */ 
); 
fendif 


A.40. Isf.c 
[KR KKK kok k k kk k kk K kk kok K kk K kk CK RAR RRA RRA RRA ARA RRA RRA RRA RRA ARA ARA 
iLBC Speech Coder ANSI-C Source Code 
Lsf.c 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK X ká k kc k Ck kc k ck k kk X kk k kc k Ck kc k Ck KKK KKK KKK kck ck kckck ck kck ck KKK KKK KKK k kk | 


#include «string.h» 
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+include <math.h> 


+include "iLBC define.h" 


/* L oj a o = E SS S S S = * 
* conversion from lpc coefficients to lsf coefficients 
pM E A A PER m A A ER A A each Husa */ 
void a21sf( 
float *freq,/* (o) lsf coefficients */ 
float *a /* (i) lpc coefficients */ 


) { 

float steps[LSF_NUMBER_OF_STEPS] = 
f(float)0.00635, (float)0.003175, (float)0.0015875, 
(float)0.00079375}; 

float step; 

int step_idx; 

int lsp_index; 

float p[LPC HALFORDER]; 

float q[LPC HALFORDER]; 

float p pre[LPC HALFORDER]; 

float q pre[LPC HALFORDER]; 

float old p, old q, *old; 

float *pq coef; 

float omega, old omega; 

int i; 

float hlp, hlpl, hlp2, hlp3, hlp4, hlp5; 


for (i20; i<LPC HALFORDER; i++) { 
pli] = (float)-1.0 * (a[i + 1] + a[LPC FILTERORDER - il); 


q[i] = a[LPC FILTERORDER - i] - ali + 1]; 
) 
p pre[0] = (float)-1.0 - p[0]; 
p pre[1] = - p pre[0] - pill; 
p pre[2] = - p prell] - pI2]; 
p pre[3] = - p pre[2] - pl3]; 


p pre[4] = - p prel3] - pla]; 
p pre[4] = p. pre[4] / 2; 


a pre[0] = (float)1.0 - q[0]; 
a pre[1] = q pre[0] - q[1]; 

a pre[2] = q pre[1] - al2]; 

a pre[3] = q_pre[2] - ql3]; 

a pre[4] = q prel3] - al4]; 

a pre[4] = q_pre[4] / 2; 


omega = 0.0; 
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old omega = 0.0; 


old p = FLOAT MAX; 
old g = FLOAT MAX; 


/* Here we loop through lsp index to find all the 
LPC FILTERORDER roots for omega. */ 


for (lsp index = 0; lsp index<LPC FILTERORDER; lsp index++) { 


/* Depending on lsp index being even or odd, we 
alternatively solve the roots for the two LSP eguations. */ 


if ((lsp index & 0x1) == 0) ( 
pa coef = p pre; 
old = gold p; 
} else ( 
pa coef = g pre; 
old = gold q; 
} 


/* Start with low resolution grid */ 


for (step idx = 0, step = steps[step idx]; 
step idx < LSF NUMBER OF STEPS;) 1 


/* cos(10piw) + pq(0)cos(8piw) + pq(1)cos(6piw) + 
pa(2)cos(4piw) + pq(3)cod(2piw) + pq(4) */ 


hlp = (float)cos (omega * TWO PI); 
hlpl = (float)2.0 * hlp + pq coef[0]; 
hlp2 = (float)2.0 * hlp * hlpl - (float)1.0 + 
pa coef[1]; 
hlp3 = (float)2.0 * hlp * hlp2 - hlpl + pq coef [2]; 
hlp4 = (float)2.0 * hlp * hlp3 - hlp2 + pg coef[3]; 


hlp5 = hlp * hlp4 - hlp3 + pq coef [4]; 


if (((hlp5 * (*old)) <= 0.0) || (omega >= 0.5))( 
if (step idx == (LSF NUMBER OF STEPS - 1))( 


if (fabs(hlp5) >= fabs(*old)) ( 


freq[lsp index] = omega - step; 
} else { 
freq[lsp index] = omega; 


} 
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if ((*old) >= 0.0) { 
*old = (float)-1.0 * FLOAT_MAX; 


*old = FLOAT_MAX; 


omega = old_omega; 
step_idx = 0; 


step_idx = LSF_NUMBER_OF_STEPS; 
} else { 


if (step_idx == 0) { 
old_omega = omega; 


} 


step_idx++; 
omega -= steps[step idx]; 


/* Go back one grid step */ 


step = steps[step idx]; 
} 


} else ( 


/* increment omega until they are of different sign, 
and we know there is at least one root between omega 
and old omega */ 

*old = hlp5; 

omega += step; 


} 


for (i = 0; i<LPC FILTERORDER; i++) { 


freg[i] = freq[i] * TWO PI; 
} 
} 
/* 5 Aala m — å sy aa jn E ———————— "—————À— a * 
* conversion from lsf coefficients to lpc coefficients 
Kaas a te ee ab a o lh a Z ŽS === er Ds ba n č m l n a n m mě */ 
void 1lsf2a( 
float *a coef, /* (o) lpc coefficients */ 
float *freq /* (i) lsf coefficients */ 
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Jí 

int i, j; 

float hlp; 

float p[LPC HALFORDER], q[LPC HALFORDER]; 

float a[LPC HALFORDER + 1], al[LPC HALFORDER], 
a2[LPC HALFORDER]; 

float b[LPC HALFORDER + 1], bl[LPC HALFORDER], 
b2[LPC HALFORDER]; 


for (i20; i<LPC FILTERORDER; i++) ( 
freg[i] = freq[i] * PI2; 
} 


/* Check input for ill-conditioned cases. This part is not 
found in the TIA standard. It involves the following 2 IF 
blocks. If "freg" is judged ill-conditioned, then we first 
modify freq[0] and freq[LPC HALFORDER-1] (normally 

LPC HALFORDER = 10 for LPC applications), then we adjust 
the other "freq" values slightly */ 


if ((freq[0] <= 0.0) || (freq[LPC FILTERORDER - 1] >= 0.5))( 


if (freq[0] <= 0.0) ( 
freq[0] = (float)0.022; 


if (freq[LPC FILTERORDER - 1] >= 0.5) { 
freq[LPC FILTERORDER - 1] = (float)0.499; 
} 


hlp = (freq[LPC FILTERORDER - 1] - freq[0]) / 
(float) (LPC FILTERORDER - 1); 


for (i21; i<LPC FILTERORDER; i++) { 
freg[i] = freq[i - 1] + hlp; 


} 


memset (a 0, LPC_HALFORDER* sizeof (float) ); 

memset (a 0, LPC_HALFORDER* sizeof (float)); 

memset (b 0, LPC_HALFORDER* sizeof (float)); 

ase 0, LPC_HALFORDER* sizeof (float)); 

memset (a, "o, (LPC HALFORDER+1) *sizeof (float)); 
(b 


memset (b, 0, (LPC HALFORDER+1) *sizeof (float) ); 
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/* pli] 


Internet Low Bit Rate Codec 


and q[i] 
cos (2*pi*omega (2j-1) in egs. 
Note that for this code p[i] 


December 2004 


compute cos(2*pi*omega (2j)) and 
4.2.2.2-1 and 4.2.2.2-2. 
Specifies the coefficients 


used in .Q A(z) while q[i] specifies the coefficients used 
in .P A(z) */ 
for (i20; i«LPC HALFORDER; i++) ( 
pli] (float)cos (TWO PI * freq[2 * i]); 
q[i] = (float)cos(IWO PI * freq[2 * i + 1]); 
} 
a[0] = 0.25; 
b[0] = 0.25; 
for (i= 0; i<LPC HALFORDER; i++) ( 
ali + 1] ali] - 2 * pli] * al[i] + a2[i]; 
bl x] bli 2 NT * BEE B52TÉ 
a2[i] = al[i]; 
al[i] = ali]; 
b2[i] = bl[il; 
bl[i] = blil; 
) 
for (j=0; j<LPC FILTERORDER; j++) { 
if (j == 0) { 
a[0] = 0.25; 
b[0] -0.25; 
} else ( 
a[0] b[0] = 0.0; 
) 
for (i=0; i<LPC HALFORDER; i++) ( 
ali + 1] = ali] - 2 * pli] * alli] + a2[i]; 
bli + 1] = bli] - 2 * glil * bl[i] + b2[il; 
a2[i] = ali]; 
al[i] = a[i]; 
b2[i] = bl[il; 
bl[i] = b[il; 
} 
a coef[j + 1] = 2 * (a[LPC HALFORDER] + b[LPC HALFORDER]); 
} 
a coef[0] = 1.0; 
} 
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A.41. packing.h 
(kok k kok k k kk k kk kok kok K KK kk K kk kk K kk KKK KKK KKKK KKK KKK K X 
iLBC Speech Coder ANSI-C Source Code 
packing.h 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKKKKK X ká X kk kk kCk ck kck ck k kk k kc k ck k k ck K k ck KKK k kc k K kck ck kck ck J 


#ifndef | PACKING H 
#define | PACKING H 


void packsplit( 


int *index, /* (i) the value to split */ 

int *firstpart, /* (0) the value specified by most 
significant bits */ 

int *rest, /* (0) the value specified by least 
significant bits */ 

int bitno firstpart, /* (i) number of bits in most 
significant part */ 

int bitno total /* (i) number of bits in full range 


of value */ 
); 


void packcombine( 


int *index, /* (i/o) the msb value in the 
combined value out */ 

int rest, /* (i) the lsb value */ 

int bitno rest /* (i) the number of bits in the 


lsb part */ 
); 


void dopack( 
unsigned char **bitstream, /* (i/o) on entrance pointer to 
place in bitstream to pack 
new data, on exit pointer 
to place in bitstream to 
pack future data */ 


int index, /* (i) the value to pack */ 

int bitno, /* (i) the number of bits that the 
value will fit within */ 

int *pos /* (i/o) write position in the 


current byte */ 
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void unpack( 
unsigned char **bitstream, /* (i/o) on entrance pointer to 
place in bitstream to 
unpack new data from, on 
exit pointer to place in 
bitstream to unpack future 
data from */ 


int *index, /* (0) resulting value */ 

int bitno, /* (i) number of bits used to 
represent the value */ 

int *pos /* (i/o) read position in the 


current byte */ 
); 


fendif 
A.42.  packing.c 
[RR KKK KKK k kk k kk K kk kok k kk K kk K kk kk K k K KX KA KKK KKK KKK KKK ck ck ck ck k ká k 
iLBC Speech Coder ANSI-C Source Code 
packing.c 
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KKKKKKKKK X ká k kc k Ck kc k ck kCk ck kck ck k kc k k kk OK kck ck kck ck ck KKK kck ck kok ck ckck ck ckckck 7 


#include <math.h> 
#include <stdlib.h> 


#include "iLBC define.h" 
#include "constants.h" 
#include "helpfun.h" 
#include "string.h" 


splitting an integer into first most significant bits and 
* remaining least significant bits 


A A o mě E p n m n E mě o A A mí P o n n */ 
void packsplit( 
int *index, /* (i) the value to split */ 
int *firstpart, /* (o) the value specified by most 
significant bits */ 
int *rest, /* (o) the value specified by least 


significant bits */ 
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int bitno firstpart, /* (i) number of bits in most 
significant part */ 
int bitno total /* (i) number of bits in full range 


of value */ 
int bitno rest = bitno total-bitno firstpart; 


*firstpart = *index>>(bitno rest); 
*rest = *index- (*firstpart<<(bitno_rest)); 


combining a value corresponding to msb's with a value 
corresponding to lsb's 


KL DOS B En = = */ 
void packcombine( 
int *index, /* (i/o) the msb value in the 
combined value out */ 
int rest, /* (i) the lsb value */ 
int bitno rest /* (i) the number of bits in the 


lsb part */ 


*index = *index<<bitno_ rest; 
*index += rest; 


/ * DH M JE ar ERE e CR c RD d E ME a E Re * 
* packing of bits into bitstream, i.e., vector of bytes 
mě ——————————————————————— A — —— */ 


void dopack( 
unsigned char **bitstream, /* (i/o) on entrance pointer to 
place in bitstream to pack 
new data, on exit pointer 
to place in bitstream to 
pack future data */ 


int index, /* (i) the value to pack */ 

int bitno, /* (i) the number of bits that the 
value will fit within */ 

int *pos /* (i/o) write position in the 


current byte */ 
int posLeft; 
/* Clear the bits before starting in a new byte */ 


if ((*pos)==0) ( 
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**bitstream=0; 


} 
while (bitno>0) { 
/* Jump to the next byte if end of this byte is reached*/ 
if (*pos==8) { 
*pos=0; 
(*bitstream) ++; 
**bitstream=0; 
} 
posLeft=8- (*pos); 


/* Insert index into the bitstream */ 


if (bitno <= posLeft) { 


**bitstream |= (unsigned char) (index<< (posLeft-bitno)); 
*pos+=bitno; 
bitno=0; 

} else ( 
**bitstream |= (unsigned char) (index»» (bitno-posLeft)); 
*pos=8; 
index-=((index>>(bitno-posLeft))<<(bitno-posLeft)); 


bitno-=posLeft; 


/* 5 55 Ss ess pe S å es E ER Ga AAA uM PEE * 
* unpacking of bits from bitstream, i.e., vector of bytes 
šk EP = a */ 


void unpack( 
unsigned char **bitstream, /* (i/o) on entrance pointer to 
place in bitstream to 
unpack new data from, on 
exit pointer to place in 
bitstream to unpack future 
data from */ 


int *index, /* (0) resulting value */ 

int bitno, /* (i) number of bits used to 
represent the value */ 

int *pos /* (i/o) read position in the 


current byte */ 
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) { 
int BitsLeft; 
*index-0; 
while (bitno»0) { 


/* move forward in bitstream when the end of the 
byte is reached */ 


if (*pos==8) { 
*pos=0; 
(*bitstream)++; 
} 
BitsLeft=8-(*pos); 
/* Extract bits to index */ 


if (BitsLeft>=bitno) ( 
*index+=((((**bitstream)<<(*pos)) & OxFF)>>(8-bitno) ); 


*pos+=bitno; 
bitno=0; 


} else ( 


if ((8-bitno)>0) { 


*index+=((((**bitstream)<<(*pos)) & OxFF)>> 
(8-bitno)); 
*pos-8; 
} else ( 
*index+=(((int) (((**bitstream)<<(*pos)) & OxFF))<< 
(bitno-8)); 
*pos=8; 


} 
bitno-=BitsLeft; 


) 
A.43. StateConstructW.h 
(kk kok k k kk k kk K kk kok KKK KKK KKK K KKK KKK KKK KKK K KKK KKK KKK KKK X 
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#ifndef | iLBC STATECONSTRUCTW H 
#define | iLBC STATECONSTRUCTW H 


void StateConstructW( 


int idxForMax, /* (i) 6-bit index for the quantization of 
max amplitude */ 
int *idxVec, /* (i) vector of quantization indexes */ 
float *syntDenum, /* (i) synthesis filter denumerator */ 
float *out, /* (o) the decoded state vector */ 
int len /* (i) length of a state vector */ 
); 
fendif 


A.44.  StateConstructW.c 
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#include «math.h» 
finclude «string.h» 


#include "iLBC define.h" 
#include "constants.h" 
#include "filter.h" 


/ * ———————— ———Ó—— —  ———— A A AA * 
* decoding of the start state 
k ————————————————————————————————— ei */ 
void StateConstructW( 
int idxForMax, /* (i) 6-bit index for the quantization of 
max amplitude */ 
int *idxVec, /* (i) vector of quantization indexes */ 
float *syntDenum, /* (i) synthesis filter denumerator */ 
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float *out, /* (0) the decoded state vector */ 
int len /* (i) length of a state vector */ 


float maxVal, tmpbuf [LPC FILTERORDER+2*STATE LEN], *tmp, 
numerator[LPC FILTERORDER+1]; 

float foutbuf[LPC FILTERORDER+2*STATE LEN], *fout; 

int k,tmpi; 


/* decoding of the maximum value */ 


maxVal = state frgqTbl[idxForMax]; 
maxVal = (float)pow(10,maxVal)/(float)4.5; 


/* initialization of buffers and coefficients */ 


memset (tmpbuf, 0, LPC FILTERORDER*sizeof (float) ); 

memset (foutbuf, 0, LPC FILTERORDER*sizeof (float)); 

for (k=0; k<LPC FILTERORDER; k++) ( 
numerator[k]-syntDenum[LPC FILTERORDER-k]; 

} 

numerator [LPC_FILTERORDER]=syntDenum[0]; 

tmp = &tmpbuf [LPC_FILTERORDER] ; 

fout = &foutbuf [LPC FILTERORDER]; 


/* decoding of the sample values */ 


for (k=0; k<len; k++) { 

tmpi = len-1-k; 

/* maxVal = 1/scal */ 

tmp[k] = maxVal*state sq3Tbl[idxVec[tmpill; 
} 


/* circular convolution with all-pass filter */ 


memset (tmp+len, 0, len*sizeof(float)); 
ZeroPoleFilter(tmp, numerator, syntDenum, 2*len, 
LPC FILTERORDER, fout); 
for (k=0;k<len;k++) ( 
out [k] = fout[len-1-k]+fout [2*len-1-k]; 
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#ifndef  iLBC STATESEARCHW H 
#define _ iLBC STATESEARCHW H 


void AbsQuantW( 
iLBC Enc Inst t *iLBCenc inst, 


); 


/* 
float *in, 1 
float *syntDenum, /* 
float *weightDenum, /* 
int *out, /* 
int len, /* (i) 
int state first Jo 


void StateSearchW( 
iLBC Enc Inst t *iLBCenc inst, 


/* 
float *residual,/* (i) 
float *syntDenum, /* 
float *weightDenum, /* 
int *idxForMax, Le 
int *idxVec, /* (0) 
int len, /* (i) 
int state_first [5 


#endif 


Andersen, et al. 


(i) Encoder instance */ 
i) vector to encode */ 
i) denominator of synthesis filter */ 
i) denominator of weighting filter */ 
o) vector of quantizer indexes */ 
ength of vector to encode and 

vector of quantizer indexes */ 
(i) position of start state in the 

80 vec */ 


( 
( 
( 
( 
l 


(i) Encoder instance */ 

target residual vector */ 

(i) lpc synthesis filter */ 

(i) weighting filter denuminator */ 

(o) guantizer index for maximum 
amplitude */ 

vector of quantization indexes */ 

length of all vectors */ 

(i) position of start state in the 
80 vec */ 
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A.46. StateSearchW.c 


(kok kok k KKK k kk K kk k kok K kk K kk K kk kk K kk K k KKK KKKK KKK KKK KKK kckck ck kck ck OK 


iLBC Speech Coder ANSI-C Source Code 
StateSearchW.c 


Copyright (C) The Internet Society (2004). 
All Rights Reserved. 


KKKKKK KKK X RAR RAR RARA ck kc kk Ck kc k ck k k ck kck ck KKK k kc k K kck ck kck ck kck ck KKK ckck ARA ke ke / 


#include «math.h» 
#include <string.h> 


#include "iLBC define.h" 
#include "constants.h" 
#include "filter.h" 
finclude "helpfun.h" 


/* ————————————————— — —————————— ————————————— m * 
* predictive noise shaping encoding of scaled start state 

*  (subrutine for StateSearchW) 

AA A LI ELI A A elec n B n l n s m mě C Un n o n k E n n m m m de */ 


void AbsQuantW( 
iLBC Enc Inst t *iLBCenc inst, 
/* (i) Encoder instance */ 


float *in, /* (i) vector to encode */ 
float *syntDenum, /* (i) denominator of synthesis filter */ 
float *weightDenum, /* (i) denominator of weighting filter */ 
int *out, /* (o) vector of quantizer indexes */ 
int len, /* (i) length of vector to encode and 

vector of quantizer indexes */ 
int state first /* (i) position of start state in the 


80 vec */ 
float *syntOut; 
float syntOutBuf[LPC FILTERORDER+STATE SHORT LEN 30MS]; 
float toQ, xq; 
int n? 
int index; 


/* initialization of buffer for filtering */ 


memset (syntOutBuf, 0, LPC FILTERORDER*sizeof(float)); 
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/* initialization of pointer for filtering */ 
syntOut = &syntOutBuf [LPC FILTERORDER]; 
/* synthesis and weighting filters on input */ 


if (state first) ( 
AllPoleFilter (in, weightDenum, SUBL, LPC FILTERORDER); 
} else ( 
AllPoleFilter (in, weightDenum, 
iLBCenc inst->state short len-SUBL, 
LPC FILTERORDER); 


} 

/* encoding loop */ 

for (n=0; n<len; n++) ( 
/* time update of filter coefficients */ 
if ((state_first) && (n==SUBL) ) { 


syntDenum += (LPC_FILTERORDER+1) ; 
weightDenum += (LPC FILTERORDER+1); 


/* synthesis and weighting filters on input */ 
AllPoleFilter (&in[n], weightDenum, len-n, 
LPC_FILTERORDER) ; 


} else if ((state_first==0) && 
(n== (iLBCenc inst->state short len-SUBL))) { 
syntDenum += (LPC FILTERORDER+1); 
weightDenum += (LPC FILTERORDER+1); 
/* synthesis and weighting filters on input */ 


AllPoleFilter (&in[n], weightDenum, len-n, 
LPC FILTERORDER); 


} 
/* prediction of synthesized and weighted input */ 
syntOut[n] = 0.0; 
AllPoleFilter (&syntOut[n], weightDenum, 1, 
LPC FILTERORDER); 


/* quantization */ 


toQ = in[n]-syntOut [n]; 
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sort sq(&xg, &index, toQ, state sq3Tbl, 8); 
out [n]=index; 
syntOut [n] = state sa3Tbl [out [n]]; 


/* update of the prediction filter */ 


AllPoleFilter(&syntOut[n], weightDenum, 1, 
LPC FILTERORDER); 


void StateSearchW( 
iLBC Enc Inst t *iLBCenc inst, 
/* (i) Encoder instance */ 
float *residual,/* (i) target residual vector */ 
float *syntDenum, /* (i) lpc synthesis filter */ 
float *weightDenum, /* (i) weighting filter denuminator */ 


int *idxForMax, /* (0) quantizer index for maximum 
amplitude */ 

int *idxVec, /* (o) vector of quantization indexes */ 

int len, /* (i) length of all vectors */ 

int state first /* (i) position of start state in the 
80 vec */ 


float dtmp, maxVal; 

float tmpbuf[LPC FILTERORDER+2*STATE SHORT LEN 30MS]; 

float *tmp, numerator[1+LPC_FILTERORDER] ; 

float foutbuf[LPC FILTERORDER+2*STATE SHORT LEN 30MS], *fout; 
int k; 

float qmax, scal; 


/* initialization of buffers and filter coefficients */ 


memset (tmpbuf, 0, LPC FILTERORDER*sizeof(float)); 

memset(foutbuf, 0, LPC FILTERORDER*sizeof(float)); 

for (k=0; k<LPC FILTERORDER; k++) ( 
numerator[k]-syntDenum[LPC FILTERORDER-k]; 

} 

numerator [LPC_FILTERORDER]=syntDenum[0]; 

tmp = &tmpbuf [LPC_FILTERORDER] ; 

fout = &foutbuf [LPC FILTERORDER]; 


/* circular convolution with the all-pass filter */ 
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memcpy (tmp, residual, len*sizeof(float)); 
memset (tmp+len, 0, len*sizeof(float)); 
ZeroPoleFilter(tmp, numerator, syntDenum, 2*len, 
LPC FILTERORDER, fout); 
for (k=0; k<len; k++) { 
fout [k] += fout[k+len]; 
} 


/* identification of the maximum amplitude value */ 


maxVal = fout[0]; 
for (k=1; k<len; k++) ( 


if (fout[k]*fout[k] > maxVal*maxVal) { 
maxVal = fout[k]; 
} 
} 
maxVal= (float) fabs (maxVal); 


/* encoding of the maximum amplitude value */ 


if (maxVal < 10.0) { 
maxVal = 10.0; 
} 
maxVal = (float)logl0 (maxVal); 
sort sq(&dtmp, idxForMax, maxVal, state frggTbl, 64); 


/* decoding of the maximum amplitude representation value, 
and corresponding scaling of start state */ 


maxVal-state frgqTbl[*idxForMax]; 
qmax = (float)pow(10,maxVal); 
Scal = (float) (4.5)/qmax; 
for (k=0; k«len; k++) { 

fout[k] *= scal; 
} 


/* predictive noise shaping encoding of scaled start state */ 


AbsQuantW(iLBCenc inst, fout,syntDenum, 
weightDenum,idxVec, len, state first); 
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#ifndef  iLBC SYNTFILTER H 
#define __iLBC SYNTFILTER H 


void syntFilter( 


float *Out, /* (i/o) Signal to be filtered */ 
float *a, /* (i) LP parameters */ 
int len, /* (i) Length of signal */ 
float *mem /* (i/o) Filter state */ 
); 
#endif 


A.48. syntFilter.c 
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Copyright (C) The Internet Society (2004). 
All Rights Reserved. 
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#include "iLBC define.h" 


/ * pne v en Dr ced EISE M MEE * 
* LP synthesis filter. 
o s LM me in */ 
void syntFilter( 
float *Out, /* (i/o) Signal to be filtered */ 
float *a, /* (i) LP parameters */ 
int len, /* (i) Length of signal */ 
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float *mem /* (i/o) Filter state */ 


int i, j; 
float *po, *pi, *pa, *pm; 


po=Out; 
/* Filter first part using memory from past */ 


for (i=0; i<LPC FILTERORDER; i++) ( 
pi-&Out[i-1]; 
pa-&a[1]; 
pm-&mem[LPC FILTERORDER-1]; 
for (j=1; j<=i; j++) I 
*po-=(*pa++) * (*pi--); 
) 
for (j=i+l; j<LPC FILTERORDER+1; j++) ( 
*po-=(*pa++) * (*pm--) ; 
} 
po++; 
) 


/* Filter last part where the state is entirely in 
the output vector */ 


for (i=LPC FILTERORDER; i<len; i++) ( 
pi-&Out[i-1]; 
pa-&a[1]; 
for (j=1; j«LPC FILTERORDER+1; j++) { 
*po-=(*pa++) * (*pi--); 
) 
po++; 
) 


/* Update state vector */ 


memcpy (mem, &Out[len-LPC FILTERORDER], 
LPC FILTERORDER*sizeof(float)); 
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